TextChanged
Dim txt As String = e.Form.Controls("输入关键字作为加载条件").Text
If txt = "" Then
tbl.Filter = ""
Else
txt = "'%" & txt & "%'"
DataTables("窗口1_Table1").LoadFilter = "第一列 like " & txt & " or 第二列 like " & txt '设置加载条件
DataTables("窗口1_Table1").Load() '加载数据
End If