主题：如何实现边输入边查找

Dim txt As String = e.Form.Controls("TextBox1").Text

Dim tbl As Table = Tables("日新车队")

If txt = "" Then

    tbl.Filter = ""

Else

    txt = "'%" & txt & "%'"

    tbl.Filter = "姓名 Like " & txt & " Or 车号 Like " & txt & " Or 电话 Like " & txt & " Or 营运证号 Like " & txt & " Or 车型 Like " & txt & " Or 品牌型号 Like " & txt & " Or 发动机号 Like " & txt & " Or 车架号 Like " & txt & " Or 终端ID Like " & txt & " Or SIM卡号 Like " & txt

End If

老师我这个是在TextBox1的TextChanged事件写的代码,上面能不能把查找各列代码,改编成模糊查找,这样太麻烦