以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用combobox 筛选逻辑列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109136)
--  作者：SZCD111
--  发布时间：2017/11/5 9:40:00
--  用combobox 筛选逻辑列
“作废状态”列为逻辑列，设置逻辑格式“是，否”，想在窗口中用combobox筛选这列，怎么做？怎么转换？
--  作者：zoyong
--  发布时间：2017/11/5 11:22:00
--  
Dim cmb As WinForm.ComboBox
cmb = e.Form.Controls("ComboBox1")
if cmb.text = "是" then

else

end if
--  作者：SZCD111
--  发布时间：2017/11/5 12:38:00
--  
我想问的是，逻辑列的TRUE和FALSE怎么转换成combobox里的“是，否”？
--  作者：hudouzhi
--  发布时间：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
--  作者：有点甜
--  发布时间：2017/11/5 21:26:00
--  
以下是引用SZCD111在2017/11/5 12:38:00的发言：
我想问的是，逻辑列的TRUE和FALSE怎么转换成combobox里的“是，否”？

 

参考

 

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