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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关键字查询

共有2658人关注过本帖树形打印复制链接主题：[求助]关键字查询

有点甜

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

加好友

发短信

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

Post By：2019/6/4 11:15:00 [显示全部帖子]

1、这段代码没问题；

2、应该是你在其他地方定义了变量t，那么你下面的代码，就要改成，如

For Each ttt As String In ss

f = f & " or 商品简称 like '%" & ttt & "%'"

有点甜

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

加好友

发短信

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

Post By：2019/6/4 11:43:00 [显示全部帖子]

msgbox(sql) 弹出你的sql语句，再在sql测试窗口测试你的sql语句

http://www.foxtable.com/webhelp/scr/1484.htm

有点甜

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

加好友

发短信

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

Post By：2019/6/4 12:02:00 [显示全部帖子]

以下是引用2474842866在2019/6/4 11:34:00的发言：
提示：列“货品名称”不属于表采购系统_tb1.2.1。

但是我之前是可以正常运行的，就是加上了多关键字查询

msgbox(sql) 弹出你的sql语句，再在sql测试窗口测试你的sql语句

http://www.foxtable.com/webhelp/scr/1484.htm

有点甜

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

加好友

发短信

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

Post By：2019/6/4 12:39:00 [显示全部帖子]

贴出你所写完整代码

有点甜

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

加好友

发短信

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

Post By：2019/6/4 13:28:00 [显示全部帖子]

1、文本框输入值蛙服下裤,7018T恤

2、修改代码

Dim cnm As WinForm.DropDownBox = e.Form.Controls("comname")'定义组合框

Dim str As String = cnm.text '定义组合框字符串内容

Dim ss As String() = str.Split(",")

Dim f As String

For Each tt As String In ss

f = f & " or 商品简称 like '%" & tt & "%'"

f="(" & f.Remove(0,3) & ")"

Dim sql As String = "s*e*l*e*c*t 商品简称,规格名,审核时间,sum(数量) as 数量 from ThrMon where 审核时间 >= '" & Date1 & "' and 审核时间 <= '" & Date2 & "' And " & f & " group by 商品简称,规格名,审核时间 "

msgbox(sql)

有点甜

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

加好友

发短信

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

Post By：2019/6/4 15:19:00 [显示全部帖子]

Dim cnm As WinForm.DropDownBox = e.Form.Controls("comname")'定义组合框
Dim str As String = cnm.text '定义组合框字符串内容
Dim ss As String() = str.Split(",")
Dim f As String
For Each tt As String In ss

tt = tt.trim(" ", "'")
f = f & " or 商品简称 like '%" & tt & "%'"
Next
f="(" & f.Remove(0,3) & ")"
Dim sql As String = "s*e*l*e*c*t 商品简称,规格名,审核时间,sum(数量) as 数量 from ThrMon where 审核时间 >= '" & Date1 & "' and 审核时间 <= '" & Date2 & "' And " & f & " group by 商品简称,规格名,审核时间 "
msgbox(sql)

有点甜

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

加好友

发短信

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

Post By：2019/6/4 17:07:00 [显示全部帖子]

你输入的值是 '蛙服下裤' '7018T恤' ？

Dim cnm As WinForm.DropDownBox = e.Form.Controls("comname")'定义组合框
Dim str As String = cnm.text '定义组合框字符串内容
Dim ss As String() = str.Split("'")
Dim f As String
For Each tt As String In ss

tt = tt.trim(" ", "'")

If tt > "" then
f = f & " or 商品简称 like '%" & tt & "%'"

End If
Next
f="(" & f.Remove(0,3) & ")"
Dim sql As String = "s*e*l*e*c*t 商品简称,规格名,审核时间,sum(数量) as 数量 from ThrMon where 审核时间 >= '" & Date1 & "' and 审核时间 <= '" & Date2 & "' And " & f & " group by 商品简称,规格名,审核时间 "
msgbox(sql)

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

主题：[求助]关键字查询