以下是引用yangming在2009-4-30 12:33:00的发言：先谢谢!我试试
是这个问题,再次感谢!
[此贴子已经被作者于2009-4-30 12:38:37编辑过]
不用这么麻烦,利用老六的代码不要太爽!
1、首先在订单表新增一个窗口，窗口类型为模式，窗口插入一个TextBox和一个DataList，DataList绑定到客户表。
2、将TextBox1的TextChanged事件代码设为:
Dim
txt As String = e.Form.Controls("TextBox1").Value
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
If txt = "" Then
dst.RowFilter = ""
Else
txt = "'*" & txt & "*'"
dst.RowFilter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If
这样我们在文本框中输入任何内容，DataList就会自动进行模糊筛选，显示客户ID、公司名称、地址、联系人这四列中，任何一列包括输入内容的行。
加好友 
发短信
Post By：2009/4/30 14:34:00 [显示全部帖子]
