以文本方式查看主题

-  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