[原创]模糊查询多个字段查询显示没有操作数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]模糊查询多个字段查询显示没有操作数

共有5663人关注过本帖树形打印复制链接主题：[原创]模糊查询多个字段查询显示没有操作数

zhangkai0234

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：7 积分：135 威望：0 精华：0 注册：2013/5/29 13:34:00

[原创]模糊查询多个字段查询显示没有操作数 发帖心情

Post By：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编辑过]

zhangkai0234

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：7 积分：135 威望：0 精华：0 注册：2013/5/29 13:34:00

Post By：2013/9/12 0:40:00 [只看该作者]

操作例子

下载信息 [文件大小：下载次数： ]
点击浏览该文件:模糊查询.rar

程兴刚

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7258 积分：40803 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2013/9/12 1:47:00 [只看该作者]

循环里面有错误，代码循环执行完毕，所生成的条件表达示大错而特错，不符合语法规则！

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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 & "*'"

tbl.Filter = temp

End If

下一主题 >> << 上一主题

主题：[原创]模糊查询 多个字段查询 显示没有操作数

主题：[原创]模糊查询多个字段查询显示没有操作数