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


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

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

帅哥哟,离线,有人找我吗?
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

 回到顶部
帅哥哟,离线,有人找我吗?
jiterp
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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"))

 回到顶部