| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 怎么给列表输入框赋值? (http://foxtable.net/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)
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") & ”|“ |