主题：[求助]请教一个能通过多个复选组合框进行筛选的窗口

附件是例子

我希望能通过复选组合框，每个框能选多个条件， “，”隔开，框里的条件是并集的（符合其中一个即可），每个框之间是交集的（符合所有框里的条件）。

请看下图所示，就是找出职位是经理或职位是技术工的，并且部门是研发或销售的，并且是早班或晚班的。

这样的筛选效果。好像可以简单的说就是excel 2010的筛选效果。

麻烦各位大神赐教啊~~

 

 

此主题相关图片如下：qq图片20131104095809.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:复合筛选.table

 

参考帮助 http://www.foxtable.com/help/topics/1058.htm

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:复合筛选.table

我这样换了一下，

可以是会按筛选之后出现这个错误

 

 

此主题相关图片如下：qq图片20131104095809.jpg

 

这是代码

-------------------------------------------------------------------------

Dim Filter As String
With e.Form.Controls("checkedcombobox1")
    If .Value IsNot Nothing Then
        Filter = "职位 = '" & .Value & "'"  
    End If
End With
With e.Form.Controls("checkedcombobox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Dim str As String
        For Each s As String In .Value.split(",")
        str = " Or " & str & "部门='" & s & "'"
    Next
        str=str.substring(3,str.length-3)
        Filter = Filter & "(" & str & ")"   
    End If
End With
With e.Form.Controls("checkedcombobox3")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Dim str As String
        For Each s As String In .Value.split(",")
        str = " or " & str & "班次='" & s & "'"
    Next
        str=str.substring(3,str.length-3)
        Filter = Filter & "(" & str & ")"   
    End If
End With
If Filter > "" Then
    Tables("表A").Filter = Filter
End If

你忘记在第一个条件增加分割了.  OR位置放错了(这个我一开始写错,不好意思)

好了~~谢谢，谢谢