主题：筛选

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.table

子窗口中有“拼音”姓名，电话三个选项，在其中任一个或多个中输入内容后，按钮进行筛选，并切下次筛选时不需要按显示所有行就可以从所有数据中筛选
请指教代码应如何写

另筛选后如何显示有多少条符合条件的记录

 

Tables("表A").ApplyFilter = False

Dim Filter As String

With e.Form.Controls("TextBox1")

    If .Value IsNot Nothing Then

        Filter = "b = '" & .Value & "'"

    End If

End With

With e.Form.Controls("TextBox2")

    If .Value IsNot Nothing Then

        If Filter > "" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "c = '" & .Value & "'"

    End If

End With

With e.Form.Controls("TextBox3")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "d = '" & .Value & "'"

    End If

End With

 

If Filter > "" Then

    Tables("表A").Filter = Filter

End If

谢谢您的热心帮助，再麻烦一下，如果“电话”想用“包含”不用“等于”应如何？
另筛选后如何显示有多少条符合条件的记录