单查一个字段没有问题,两个一起查就出错了 缺少操作数
Dim txts() As String
Dim str As String
Dim temp As String
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = txt.TrimEnd()
txts= txt.Split(" ")
For Each str In txts
str = "'*" & str & "*'"
str= "公司名称 Like" & str & "And"
Next
str= str.TrimEnd("d","n","A")
tbl.Filter = str.Replace("公司名称","编号")& "or" & str
此主题相关图片如下:未命名.jpg
[此贴子已经被作者于2013-9-12 0:44:47编辑过]