参考:
http://www.foxtable.com/help/topics/1928.htm
http://www.foxtable.com/help/topics/2269.htm
http://www.foxtable.com/help/topics/1268.htm
ChangeEdit事件改一下,以为原来是筛选,闲杂是加载:
If e.Col.Name = "客户ID" Then '如果编辑的是客户ID列
If e.Col.DroppedDown Then '如果下拉窗口已经打开
Dim tbl As DataTable = DataTables("窗口1_Table1")
Dim Flt AS String
If e.Text = "" Then '如果内容为空
flt = "" '显示所有客户
Else '否则根据输入内容进行模糊筛选
Dim txt As String = "'*" & e.Text & "*'"
flt = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If
tbl.LoadFilter = flt
tbl.Load()
End If
End If