Dim Filter As stringwith e.Form Dim txb1 As WinForm.TextBox = .Controls("TextBox1") Filter = "图号 Like '" & txb1.text & "%'or [名称] Like '" & txb1.text & "%'"end withdataTables("产品目录").loadFilter = FilterdataTables("产品目录").load()