With.AddSelect("订单类型", "订单类型", "|" & dtb.GetComboListString("订单类型"))
.Attribute = """
End With
With.AddSelect("接待人", "接待人", "|" & dtb.GetComboListString("接待人"))
.Attribute = """
End With
.AddTextArea("购买物品", 5).Placeholder = "购买物品"
.AddInput("客户名称", "客户名称", "text")
' .AddInput("接待渠道", "接待渠道", "淘宝官方店|京东官方店|美团官方店")
With.AddSelect("接待渠道", "接待渠道", "|" & dtb.GetComboListString("接待渠道"))
.Attribute = """
End With
.AddInput("合作方名称", "合作方名称", "淘宝官方店|京东官方店|美团官方店")
With.AddSelect("合作方名称", "合作方名称", "|" & dtb.GetComboListString("合作方名称"))
.Attribute = """
End With
.AddInput("成交价", "成交价", "number")
.AddInput("首次付款", "首次付款", "number")
.AddInput("销售日期", "销售日期", "date").Value = Format(Date.now(), "yyyy-MM-dd")
With.AddInput("销售时间", "销售时间", "time")
.value = Format(Date.Now, "HH:mm")
' .Min = "08:00" '输入的事件必须在8:00到12:00之间
' .Max = "12:00"
End With
.AddTextArea("收货人详细信息", 5).Placeholder = "收货人详细信息"
' .AddInput("发货渠道", "发货渠道", "顺丰|自营|韵达")
With.AddSelect("发货渠道", "发货渠道", "|" & dtb.GetComboListString("发货渠道"))
.Attribute = """
End With
With.AddInput("发货期限", "发货期限", "date")
Dim dr发货时间 As DataRow = DataTables("系统重要参数").Find("数值名称='默认当天发货时间'")
If Date.now.Hour > dr发货时间("当前值") Then
'次日发货
.Value = Date.Today.AddDays(1)
Else
'今日发货
.Value = Date.Today
End If
End With
.AddTextArea("注意事项", 5).Placeholder = "注意事项"
' .AddSelect("订货平台", "订货平台", "淘宝|京东|美团")
With.AddSelect("订货平台名称", "订货平台名称", "|" & dtb.GetComboListString("订货平台名称"))
.Attribute = """
End With
.AddInput("订货平台订单号", "订货平台订单号", "text")
紫色的部分是订单类型的
加好友 
发短信
Post By：2022/6/13 11:42:00 [显示全部帖子]
是不是因为这个函数没有执行成功的原因？