主题：筛选问题

Dim Filter As String = "1=1"

With e.Form.Controls("ComboBox2")
    If .Value IsNot Nothing Then
        Filter = Filter & " and 类别 = '" & .Value & "'"
    End If
End With

With e.Form.Controls("ComboBox3")
    If .Value IsNot Nothing Then
       
        If .Value = "计件工价" Then
            Filter = Filter & " and (注释 <> '全套' Or 注释 Is Null)"
        End If
       
        If .Value = "多套模具组合工价" Then
            Filter = Filter & " and 注释 = '全套'"
        End If
    End If
End With

If Filter > "" Then
    Tables("机房计件工价").Filter = Filter
End If