Foxtable(狐表)用户栏目专家坐堂 → 用combobox 筛选逻辑列


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

主题:用combobox 筛选逻辑列

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


加好友 发短信
等级:幼狐 帖子:50 积分:497 威望:0 精华:0 注册:2017/9/5 11:59:00
用combobox 筛选逻辑列  发帖心情 Post By:2017/11/5 9:40:00 [只看该作者]

“作废状态”列为逻辑列,设置逻辑格式“是,否”,想在窗口中用combobox筛选这列,怎么做?怎么转换?

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


加好友 发短信
等级:三尾狐 帖子:668 积分:7918 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2017/11/5 11:22:00 [只看该作者]

Dim cmb As WinForm.ComboBox
cmb = e.Form.Controls("ComboBox1")
if cmb
.text = "是" then

else

end if

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


加好友 发短信
等级:幼狐 帖子:50 积分:497 威望:0 精华:0 注册:2017/9/5 11:59:00
  发帖心情 Post By:2017/11/5 12:38:00 [只看该作者]

我想问的是,逻辑列的TRUE和FALSE怎么转换成combobox里的“是,否”?

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


加好友 发短信
等级:婴狐 帖子:30 积分:216 威望:0 精华:0 注册:2017/10/14 21:48:00
  发帖心情 Post By:2017/11/5 13:39:00 [只看该作者]

看这样可行,我是个新手,亲测可用

vars("是") = 1
vars("否") = 0
'messagebox.show(vars("是"))
Dim co As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim  ds As List(of DataRow)
Dim dr As DataRow
If co.value <> "" Then
 ds = DataTables("表a").Select("第三列 = " &  vars(co.value))
For Each dr In ds
Dim dr1 As DataRow = DataTables("表c").addnew
dr1("员工编号") = dr("员工编号")
Next
End If

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/5 21:26:00 [只看该作者]

以下是引用SZCD111在2017/11/5 12:38:00的发言:
我想问的是,逻辑列的TRUE和FALSE怎么转换成combobox里的“是,否”?

 

参考

 

http://www.foxtable.com/webhelp/scr/0737.htm

 


 回到顶部