修改订单时怎么实现所编辑的订单每个列的值在输入界面的对话框里 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

比如象下面的时间类，文本类输入框可以用.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)

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)

msgbox(a)

.AddSelect("城市", "城市", a)

end if

End With

主题：修改订单时怎么实现所编辑的订单每个列的值在输入界面的对话框里