TextChanged 事件中代码:
Dim t As Table = Tables("产品信息")
Dim fil As String = e.Sender.Text
If fil IsNot Nothing Then
t.Filter= "产品名称 Like \'%" & fil & "%\' and 设计 =\'" & _username & "\'"
Else
t.Filter=""
End If