Dim Filter As String
With e.Form.Controls("TextBox1")
If .Value IsNot Nothing Then
Filter = "姓名 = \'" & .Value & "\'"
End If
End With
Tables("表名").Filter = "姓名 = \'" & .Value & "\'"
你这个要筛选的是那张表都没有说明,这么会筛选呢?帮助中的窗口筛选列子中,下面的一小部分没有看见吗?再看看.