模糊查询 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 模糊查询

共有7331人关注过本帖树形打印复制链接主题：模糊查询

nand

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

加好友

发短信

等级：婴狐帖子：25 积分：257 威望：0 精华：0 注册：2013/4/14 9:25:00

模糊查询

Post By：2013/4/20 9:53:00 [只看该作者]

在一文本框事件写入代码：

Dim txt As String = e.Form.Controls("查询").Text
Dim tbl As Table = Tables("标准产品_标准产品")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.Filter = "产品名称 Like " & txt & " Or 型号 Like " & txt & " Or 规格 Like " & txt & " Or 图号 Like " & txt
End If

查找规格为：600*600*1020

报错为：Like 运算符中出错: 字符串模式“*600*6*”无效。

字样的出错，也就是带“*”号的地方出错，求师傅，师兄帮忙解决

[此贴子已经被作者于2013-4-20 9:54:23编辑过]

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/4/20 9:59:00 [只看该作者]

不能在中间使用*号的吧

nand

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

加好友

发短信

等级：婴狐帖子：25 积分：257 威望：0 精华：0 注册：2013/4/14 9:25:00

Post By：2013/4/20 10:07:00 [只看该作者]

是的，但我们存在这种规格和筛选条件

XYT

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

加好友

发短信

等级：六尾狐帖子：1418 积分：7167 威望：0 精华：0 注册：2013/3/18 8:37:00

Post By：2013/4/20 10:07:00 [只看该作者]

Output.Show( "600*600*1020" Like "###*###*####")

[此贴子已经被作者于2013-4-20 10:11:26编辑过]

FoxMan

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

加好友

发短信

等级：小狐帖子：302 积分：1860 威望：0 精华：0 注册：2012/4/27 11:34:00

Post By：2013/4/20 10:26:00 [只看该作者]

这样试试:

Dim txt As String = e.Form.Controls("查询").Text
Dim tbl As Table = Tables("标准产品_标准产品")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'*" & txt.replace("*","[*]") & "*'"
    tbl.Filter = "产品名称 Like " & txt & " Or 型号 Like " & txt & " Or 规格 Like " & txt & " Or 图号 Like " & txt
End If