以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  怎么给列表输入框赋值?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=161157)
--  作者：jiterp
--  发布时间：2021/3/8 15:31:00
--  怎么给列表输入框赋值?
手机网页编辑数据，查询赋值，我按帮助介绍上操作,列表框不可能用value，提示“不是WSELECT的成员”，这个是用什么来处理的呀？

Dim dr As DataRow = DataTables("hr_aaa").SQLFind("[ID]=" & PrimaryKey)
If dr IsNot Nothing Then
        wb.AddForm("","form1","Qjd_edit.htm?key=" & PrimaryKey &  "&page=" & PageNumber)
        With wb.AddInputGroup("form1","ipg1","编辑")
        .AddSelect("qjtype","请假类型","事假|病假|婚假").Value = dr("qjtype")      \'这段出错
        .AddInput("stardate","开始日期","date").value = dr("stardate")
        .AddInput("strtime","开始时间","time").value = dr("strtime")
        .AddInput("enddate","结束日期","date").value = dr("enddate")
        .AddInput("endtime","结束时间","time").value = dr("endtime")
        End With
end if
--  作者：有点蓝
--  发布时间：2021/3/8 15:41:00
--  

AddSelect(ID, Label, Values)

ID输入框ID。
Label在输入框左侧显示的标签内容
Values列表项目，用符号"|"隔开，例如"大专|本科|硕士|博士"。
打开网页后，默认会选择第一个值，如果要将其他位置的值作为默认值，可以将其用方括号括起来，例如"大专|[本科]|硕士|博士"，打开网页后，会自动选择本科。

dim s as string = "|事假|病假|婚假|"
s = s.replace("|" & dr("qjtype") & "|","|[" & dr("qjtype") & "]|").trim("|")
.AddSelect("qjtype","请假类型",s)
--  作者：jiterp
--  发布时间：2021/3/8 15:56:00
--  
追问：如果我用的是这种调用，又要怎么处理？


        .AddSelect("staname","员工名称","|"+ DataTables("sy_user").GetComboListString("staname"))
--  作者：有点蓝
--  发布时间：2021/3/8 16:39:00
--  
dim s as string = "|" & DataTables("sy_user").GetComboListString("staname") & ”|“