专家坐堂-weui网页404报错Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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")

紫色的部分是订单类型的