比如象下面的时间类,文本类输入框可以用.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
帮助有,仔细看文字说明
http://www.foxtable.com/mobilehelp/topics/0048.htm
http://www.foxtable.com/mobilehelp/topics/0049.htm
帮助文件看过了啊,里面没有我这个问题的答案啊,我意思是:修改订单的情况,通过订单编号和页码传递,找到了这个订单,
修改订单时怎么实现正在编辑的这个订单每个列的值,在idet.htm的输入框里显示,然后修改过后再保存呢?
说明没有认真看帮助啊
Values | 列表项目,用符号"|"隔开,例如"大专|本科|硕士|博士"。 打开网页后,默认会选择第一个值,如果要将其他位置的值作为默认值,可以将其用方括号括起来,例如"大专|[本科]|硕士|博士",打开网页后,会自动选择本科。 |
With wb.AddInputGroup("form1", "ipg4", "城市")
dim s as string = "|" & DataTables("行政区划表").GetComboListString("省份") & "|"
msgbox(s)
s = s.replace("|" & pr("省份") & "|","|[" & pr("省份") & "]|").trimend("|")
msgbox(s)
With .AddSelect("省份", "省份", s)
.Attribute = """
End With
if pr.isnull("省份") orelse pr.isnull("城市") then
.AddSelect("城市", "城市", "")
else
dim a as string = "|" & DataTables("行政区划表").GetComboListString("城市","省份='" & pr("省份") & "'") & "|"
msgbox(a)
a = a.replace("|" & pr("城市") & "|","|[" & pr("城市") & "]|").trimend("|")
msgbox(a)
.AddSelect("城市", "城市", a)
end if
End With