主题：[求助]筛选时如果筛选了性别其他筛选项不起作用

Dim Filter As String   

With e.Form.Controls("县市区")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = "县市区 = '" & .Value & "'"

    End If

End With

With e.Form.Controls("乡镇办")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = "乡镇办 = '" & .Value & "'"

    End If

End With

With e.Form.Controls("性别")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = "性别 = '" & .Value & "'"

    End If

End With

If Filter > "" Then

    Tables("在职人员信息表").Filter = Filter 

End If