以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么在窗口上用复选框完成筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16303)
--  作者：hongshizijun
--  发布时间：2012/2/8 22:03:00
--  怎么在窗口上用复选框完成筛选

怎么在窗口上用复选框完成筛选

我只会用文本框对一列的单一筛选，我像用复选框完成对一列的多值筛选，求代码
--  作者：blackzhu
--  发布时间：2012/2/9 7:44:00
--  
Dim Filter As String
With e.Form.Controls("CheckedComboBox1")
    If .Value IsNot Nothing Then
        Dim parts() As String = .Text.Split(",")
        For Each part As String In parts
            If Filter >"" Then
                Filter = Filter & " Or "
            End If
            Filter = Filter &  "销售顾问 Like \'*" & part & "*\'"
        Next
    End If
End With
--  作者：狐狸爸爸
--  发布时间：2012/2/9 8:01:00
--  

帮助有现成的例子的：

 

http://www.foxtable.com/help/topics/2410.htm