主题：筛选问题

写到TextChanged事件去

Dim Filter As String
With e.Form.Controls("combobox1")
    If .text <> Nothing Then
        Filter = "对应客户 = '" & .text & "'"
    End If
End With
With e.Form.Controls("combobox2")
    If .text <> Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter &  "部门 = '" & .text & "'"
    End If
End With
With e.Form.Controls("combobox14")
    If .text <> Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户负责人 = '" & .text & "'"
    End If
End With

If Filter > "" Then
    Tables("联系_table1").Filter = Filter
End If