- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [原创]模糊查询 多个字段查询 显示没有操作数 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40206)
-- 发布时间：2013/9/12 0:38:00
-- [原创]模糊查询 多个字段查询 显示没有操作数
单查一个字段没有问题，两个一起查就出错了 缺少操作数
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编辑过]
-- 发布时间：2013/9/12 0:40:00
--
操作例子
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:模糊查询.rar |
-- 发布时间：2013/9/12 1:47:00
--
循环里面有错误，代码循环执行完毕，所生成的条件表达示大错而特错，不符合语法规则！
-- 发布时间：2013/9/12 11:05:00
--
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
If temp > "" Then
temp = temp & " Or "
End If
temp = temp & "公司名称 Like \'*" & str & "*\'"
Next
tbl.Filter = temp
End If
-- 发布时间：2013/9/12 21:48:00
--
把上面的代码改了一下，测试有效。
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
If temp > "" Then
temp = temp & " and "
End If
temp = temp & "公司名称 Like \'*" & str & "*\'"
Next
tbl.Filter = temp
End If