主题：求教专家 窗口设计 筛选数据 出现问题

两个筛选条件同时选择，但是出现只有一个筛选条件的结果

如图

此主题相关图片如下：11.png
"/>

使用的代码：

Dim Filter As String

With e.Form.Controls("Brands")

    If .Value IsNot Nothing Then

        Filter = "品牌名称= '" & .Value & "'"

    End If

End With

With e.Form.Controls("Category")

    If .Value IsNot Nothing Then

        Filter = "品类_名称= '" & .Value & "'"

    End If

End With

If Filter > "" Then

    Tables("市场品牌统计表").Filter = Filter

End If

 

Dim Filter As String = "1=1"

With e.Form.Controls("Brands")

    If .Value IsNot Nothing Then

        Filter &= " and 品牌名称= '" & .Value & "'"

    End If

End With

With e.Form.Controls("Category")

    If .Value IsNot Nothing Then

        Filter &= " and 品类_名称= '" & .Value & "'"

    End If

End With

If Filter > "" Then

    Tables("市场品牌统计表").Filter = Filter

End If