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

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

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

2474842866

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

加好友

发短信

等级：幼狐帖子：131 积分：910 威望：0 精华：0 注册：2019/5/19 21:50:00

Post By：2019/6/4 14:05: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

tt = tt.Trim(" '")

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

f=f.Remove(0,14)

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

msgbox(sql)

可以正常运行，现在是如何将 ’蛙服下裤‘,’7018T恤‘ 转化为蛙服下裤,7018T恤问题

此主题相关图片如下：360截图20190604140142733.jpg

此主题相关图片如下：360截图20190604140152446.jpg

2474842866

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

加好友

发短信

等级：幼狐帖子：131 积分：910 威望：0 精华：0 注册：2019/5/19 21:50:00

Post By：2019/6/4 14:12: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

tt = tt.Trim(" '")

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

f=f.Remove(0,14)

msgbox(sql)

可以正常运行，现在是如何将 ’蛙服下裤‘,’7018T恤‘ 转化为蛙服下裤,7018T恤问题

此主题相关图片如下：360截图20190604140142733.jpg

此主题相关图片如下：360截图20190604140152446.jpg

有点甜

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

2474842866

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

加好友

发短信

等级：幼狐帖子：131 积分：910 威望：0 精华：0 注册：2019/5/19 21:50:00

Post By：2019/6/4 15:56:00 [只看该作者]

[此贴子已经被作者于2019/6/4 15:56:05编辑过]

2474842866

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

加好友

发短信

等级：幼狐帖子：131 积分：910 威望：0 精华：0 注册：2019/5/19 21:50:00

Post By：2019/6/4 15:59:00 [只看该作者]

单个关键字可以执行，多个关键字报错

图片点击可在新窗口打开查看此主题相关图片如下：360截图20190604155712139.jpg

2474842866

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

加好友

发短信

等级：幼狐帖子：131 积分：910 威望：0 精华：0 注册：2019/5/19 21:50:00

Post By：2019/6/4 16:25:00 [只看该作者]

已经自己处理好了，感谢

有点甜

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

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

总数 17 上一页 1 2

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