以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  修改订单时怎么实现所编辑的订单每个列的值在输入界面的对话框里  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189863)
--  作者：温馨的大树
--  发布时间：2024/1/1 14:59:00
--  修改订单时怎么实现所编辑的订单每个列的值在输入界面的对话框里
比如象下面的时间类，文本类输入框可以用.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
--  作者：有点蓝
--  发布时间：2024/1/1 20:37:00
--  
帮助有，仔细看文字说明

http://www.foxtable.com/mobilehelp/topics/0048.htm

http://www.foxtable.com/mobilehelp/topics/0049.htm
--  作者：温馨的大树
--  发布时间：2024/1/1 20:52:00
--  
帮助文件看过了啊，里面没有我这个问题的答案啊，我意思是：修改订单的情况，通过订单编号和页码传递，找到了这个订单，修改订单时怎么实现正在编辑的这个订单每个列的值，在idet.htm的输入框里显示，然后修改过后再保存呢？
--  作者：有点蓝
--  发布时间：2024/1/1 21:07:00
--  
说明没有认真看帮助啊

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