Dim txt As String = e.Form.Controls("TextBox1").Text Dim tbl As Table = Tables("窗口1_Table1") If txt > "" Then txt = "'*" & txt & "*'" txt = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt If tbl.Filter = "" Then tbl.filter = txt Else tbl.filter = tbl.filter & " And (" & txt & ")" End If End If
加好友 
发短信
Post By：2012/4/19 18:03:00 [显示全部帖子]
