主题：[求助]请教关于查询功能 从 组合框 换成 复选组合框后 代码该怎么改！

组合框源代码如下：（支持模糊查询的）

Dim Filter As String
With e.Form.Controls("CheckedComboBox3")
   If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "销售顾问 Like '*" & .Value & "*'"
    End If
End With
With e.Form.Controls("CheckedComboBox1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户来源 Like '*" & .Value & "*'"
    End If
End With
With e.Form.Controls("CheckedComboBox2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "欲购车型 Like '*" & .Value & "*'"
    End If
End With
With e.Form.Controls("CheckedComboBox4")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "意向级别 Like '*" & .Value & "*'"
    End If
End With
With e.Form.Controls("DateTimePicker9")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "建档日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("DateTimePicker10")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "建档日期 <= #" & .Value & "#"
    End If
End With
Tables("销售意向客户进度管制").filter = filter

老大 你这个针对一个组合复选框 很不错  但是 我项目上 是多个组合复选框   复选框与复选框之间不是or  而是and             该怎么加啊？

老大出错！！！

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