以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求逻辑列的窗口筛选代码写法。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=10712)

--  作者:zhaotao
--  发布时间:2011/6/20 9:32:00
--  求逻辑列的窗口筛选代码写法。
示例文件为CaseStudy目录下的“窗口筛选.table”中,如果要筛选一逻辑列代码应怎样修改?
--  作者:狐狸爸爸
--  发布时间:2011/6/20 9:34:00
--  
"逻辑列名 = True"
--  作者:zhaotao
--  发布时间:2011/6/20 9:42:00
--  
我在窗口中加了一复选框控件CheckBox1就是不知怎样引用这个复选框的值?
--  作者:blackzhu
--  发布时间:2011/6/20 10:27:00
--  
Dim Filter As String
With
e.Form.Controls("复选框名称")
    

        Filter = "
逻辑列名 = True"
   

End
With

If Filter > "" Then
    Tables
("表名").Filter = Filter
End
If

 试试这样

--  作者:狐狸爸爸
--  发布时间:2011/6/20 10:30:00
--  
Dim Filter As String
Dim chk As WinForm.CheckBox = e.Form.Controls("CheckBox1")
If chk.Checked Then
    filter = "某列 = True"
Else
    Filter = "某列 = False"
End If

--  作者:zhaotao
--  发布时间:2011/6/20 10:37:00
--  
多谢两位!我先试试。