主题：[求助]筛选窗口不工作

想对姓名列筛选，
此主题相关图片如下：qq截图未命名.bmp


 

Dim Filter As String

With e.Form.Controls("TextBox1")

    If .Value IsNot Nothing Then

        Filter = "姓名 = '" & .Value & "'"

    End If

End With

请老师帮忙看下哪里的问题，谢谢