主题：以下是自己做的筛选窗口，如何实现满足多条件筛选

Dim s As String

Dim s1 As String() = {e.Form.Controls("bm").Value,e.Form.Controls("xb").Value,e.Form.Controls("ht").Value,e.Form.Controls("zc").Value}

Dim s2 As String() = {"第二列","第四列","第五列","第六列"}

    For i As Integer = 0 To s1.Length-1

        If s1(i) Is Nothing

            Continue For

        End If

        s = s & " And " & s2(i) & " In ('" & s1(i).Replace(",","','") & "')"

    Next

If s > ""

    Tables("表A").Filter = s.TrimStart(" ","A","n","d"," ")

End If