主题：使用Textchanged事件遇到的问题。

比如我的订单表里有10000行数据，这个时候我通过文本框的Textchanged代码：

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

 End If

这样加载数据后，电脑加载会非常的卡，卡的几乎要反映一会，这个问题该如何解决呢。