Dim filter As String = "1=2"
For Each dc As Col In CurrentTable.Cols
filter &= " or convert(" & dc.Name & ",'System.String') like '%" & e.Form.Controls("TextBox1").Text & "%'"
Next
CurrentTable.Filter = filter
因为窗口中有多个表怎么换成同时查询多个表,这样换为什么不对,应该怎么写啊
Dim filter As String = "1=2"
For Each dc As Col In Tables("北斗安装","北斗续费").Cols
filter &= " or convert(" & dc.Name & ",'System.String') like '%" & e.Form.Controls("TextBox1").Text & "%'"
Next
Tables("北斗安装","北斗续费").Filter = filter
加好友 
发短信
Post By：2014/12/10 16:41:00 [只看该作者]
