1、输入框不应该绑定到字段。
2、
Dim Filter As StringWith e.Form.Controls("textbox1") If .Value IsNot Nothing Then Filter = "主题 Like '*" & .Value & "*'" End IfEnd WithTables("表A").filter = Filter