比如象下面的时间类,文本类输入框可以用.value属性进行输入框赋值,但是项目列表类,逻辑开关类没有这个属性,怎么实现输入框赋值,可以修改后再保存呢?
With wb.AddInputGroup("form1", "ipg2", "姓名")
.AddSelect("姓名", "姓名", str2)
End With
With wb.AddInputGroup("form1", "ipg3", "时间")
.AddInput("订单日期", "订单日期", "date").Value = pr("订单日期")
.AddInput("订单时间", "订单时间", "time").Value = pr("订单时间")
End With
With wb.AddInputGroup("form1", "ipg4", "城市")
With .AddSelect("省份", "省份", "|" & DataTables("行政区划表").GetComboListString("省份"))
.Attribute = """
End With
.AddSelect("城市", "城市", "")
End With
With wb.AddInputGroup("form1", "ipg5", "地铁站")
With .AddSelect("市", "市", "|" & DataTables("全国地铁表").GetComboListString("城市"))
.Attribute = """
End With
With .AddSelect("地铁线", "地铁线", "")
.Attribute = """
End With
.AddSelect("地铁站", "地铁站", "")
End With
With wb.AddInputGroup("form1", "ipg6", "车费出行")
.AddSelect("车费承担", "车费承担", "包含车费|客户实报")
.AddSelect("出发确认", "出发确认", "客服确认|直接出发|确定出发")
End With