主题：在筛选出来的可见表上在筛选，如何实现？谢谢

你太纠结了!

Dim Filter As String
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        Filter = "序号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "序号1 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox3")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "序号2 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox4")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "序号3 = '" & .Value & "'"
    End If
End With

With e.Form.Controls("ComboBox4")  '控件名字改一下
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "序号3 = '" & .Value & "'"     '字段名字改一下
    End If
End WithWith e.Form.Controls("ComboBox4")     '这一段也是       这样你想加多少都行呀
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "序号3 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("表C").Filter = Filter
End If