以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  使用关联表Edit函数的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153655)
--  作者：石四
--  发布时间：2020/8/18 14:16:00
--  使用关联表Edit函数的问题
使用关联表示例，Edit函数。
..........
With wb.AddInputGroup("form1","ipg1",iif(e.GetValues.ContainsKey("oid"),"编辑订单","新增订单"))
    With .AddInput("订单编号","编号","text")
        .Value = pr("订单编号")
        .Readonly = True
    End With
    .AddInput("客户","客户","text").Value = pr("客户")
    .AddInput("日期","日期","date").Value = pr("日期")
..........
 .AddInput("客户","客户","text").Value = pr("客户") 这句改成列表输入该怎么用？
改成 .AddSelect("客户","客户","iOS|Windows|Andriod").Value = pr("客户") 的话不行，会有提示，大概意思是Value不是Wselect的成员。
--  作者：有点蓝
--  发布时间：2020/8/18 14:45:00
--  
dim s as string = "|iOS|Windows|Andriod|"
s = s.replace("|" & pr("客户") & "|", "|[" & pr("客户") & "]|").trimend("|")
.AddSelect("客户","客户",s)

列表输入框

和文本输入框一样，列表输入框也必须添加在输入框组中。

在输入框组增加一个列表输入框的语法为：

AddSelect(ID, Label, Values)

ID输入框ID。
Label在输入框左侧显示的标签内容
Values列表项目，用符号"|"隔开，例如"大专|本科|硕士|博士"。
打开网页后，默认会选择第一个值，如果要将其他位置的值作为默认值，可以将其用方括号括起来，例如"大专|[本科]|硕士|博士"，打开网页后，会自动选择本科。
--  作者：石四
--  发布时间：2020/8/18 15:09:00
--  
好的，我试试。