编写文本框的keydown事件
If e.KeyCode = Keys.Enter Then Dim filter As String = "1=2" For Each dc As Col In Tables("表A").Cols filter &= " or convert(" & dc.Name & ",'System.String') like '%" & e.Form.Controls("TextBox1").Text & "%'" Next Tables("表A").Filter = filterEnd I