附件是例子

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

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

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

麻烦各位大神赐教啊~~

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

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

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

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

点击浏览该文件:复合筛选.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