Dim tns() As String = {"表A", "表B"} For Each tn As String In tns 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 Tables(tn).Filter = filter Next
加好友 
发短信
Post By：2014/12/10 17:54:00 [显示全部帖子]
