以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]检查框作查询筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15423)
--  作者：游山玩水
--  发布时间：2011/12/25 20:08:00
--  [求助]检查框作查询筛选

请问高手，在一个表中，有多列是逻辑列，我设计了一个查询的窗体，用检查框作为查询条件的选择，可以选择任意个条件，类似文本框输入的代码应该怎么改？

With e.Form.Controls("CheckBox1")
   If .Value IsNot Nothing Then
        If Filter =0 Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "条件1= \'" & .Value & "\'"
    End If
End With

 

……
--  作者：kitty
--  发布时间：2011/12/25 20:38:00
--  
建议用ComboBox作为查询条件的选择的输入，简单，明了。
--  作者：czy
--  发布时间：2011/12/25 23:49:00
--  

和帮助中的筛选代码差不多，注意下面的不同之处。

 

With e.Form.Controls("CheckBox1")
    If .Checked = True Then
        Filter = "条件1= true "
    End If
End With
--  作者：xuebai
--  发布时间：2011/12/26 8:35:00
--  
以下是引用czy在2011-12-25 23:49:00的发言：

和帮助中的筛选代码差不多，注意下面的不同之处。

 

With e.Form.Controls("CheckBox1")
    If .Checked = True Then
        Filter = "条件1= true "
    End If
End With

 

可以了，非常感谢！