Foxtable(狐表)用户栏目专家坐堂 → 怎么给列表输入框赋值?


  共有2151人关注过本帖树形打印复制链接

主题:怎么给列表输入框赋值?

帅哥哟,离线,有人找我吗?
jiterp
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:715 积分:8574 威望:0 精华:0 注册:2011/11/13 15:49:00
怎么给列表输入框赋值?  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:715 积分:8574 威望:0 精华:0 注册:2011/11/13 15:49:00
  发帖心情 Post By:2021/3/8 15:56:00 [只看该作者]

追问:如果我用的是这种调用,又要怎么处理?


        .AddSelect("staname","员工名称","|"+ DataTables("sy_user").GetComboListString("staname"))

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/8 16:39:00 [只看该作者]

dim s as string = "|" & DataTables("sy_user").GetComboListString("staname") & ”|“

 回到顶部