请教一个关于判断字符串中是否含空格的代码。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教一个关于判断字符串中是否含空格的代码。

共有11227人关注过本帖树形打印复制链接主题：请教一个关于判断字符串中是否含空格的代码。

yacity

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

加好友

发短信

等级：二尾狐帖子：532 积分：4020 威望：0 精华：0 注册：2011/6/18 12:41:00

请教一个关于判断字符串中是否含空格的代码。 发帖心情

Post By：2012/2/6 10:49:00 [只看该作者]

textchanged 代码如下：

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("草绳选产品_Table1")
tbl.Filter= ""
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'*" & txt.Replace("*","[*]") & "*'"
    '或者 txt = "'*" & strtowide(txt) & "*'"

tbl.filter = "chanpinname Like " & txt & " Or guige Like " & txt & " " '如果产品名称包含txt，或规格包含txt
tbl.Sort = "chanpinname desc,guige desc,danwei desc"
End If

看一下运行效果

dvubb 此主题相关图片如下：232.jpg

无论通过产品名称筛选还是规格筛选，都会得到很多个结果。还是不方便。

我的想法是这样

dvubb 此主题相关图片如下：233.jpg

如果只有一个字符串，那么

tbl.filter = "chanpinname Like " & txt & " or guige Like " & txt & " " '如果产品名称包含txt，或规格包含txt

如果字符串中有空格那么

用空格分割字符串，前部分=txt2，后部分=txt3

tbl.filter = "chanpinname Like " & txt2 & " and guige Like " & txt3& " "

代码如何实现呢？

[此贴子已经被作者于2012-2-6 11:01:34编辑过]

狐狸爸爸

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

加好友

发短信

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

Post By：2012/2/6 11:22:00 [只看该作者]

1、判断是否空格：
http://www.foxtable.com/help/topics/0236.htm

2、将字符串拆分成数组：

http://www.foxtable.com/help/topics/0245.htm

yacity

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

加好友

发短信

等级：二尾狐帖子：532 积分：4020 威望：0 精华：0 注册：2011/6/18 12:41:00

Post By：2012/2/6 16:15:00 [只看该作者]

奇怪，按以下代码竟然搜索不到结果

产品表里面有产品名称“特级红双草绳” 规格“4CM” 的记录。

可是录入 "特级红双 4CM" 找不到记录。

If txt.IndexOf(" ") = -1 Then '如果没有空格
tbl.filter = "chanpinname Like " & txt & " or guige Like " & txt & " "
tbl.Sort = "chanpinname desc,guige desc,danwei desc"

Else
'Dim txt As String
Dim txt2 As String
Dim txt3 As String
Dim Values() As String
Values = txt.split(" ")
txt2=values(0)
txt3=values(1)

tbl.filter = "chanpinname Like " & txt2 & " and guige Like " & txt3 & " "
tbl.Sort = "chanpinname desc,guige desc,danwei desc"
End If
End If

[此贴子已经被作者于2012-2-6 16:15:46编辑过]

狐狸爸爸

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

加好友

发短信

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

Post By：2012/2/6 17:08:00 [只看该作者]

Messagebox.show(tbl.filter)

yacity

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

加好友

发短信

等级：二尾狐帖子：532 积分：4020 威望：0 精华：0 注册：2011/6/18 12:41:00

Post By：2012/2/6 17:21:00 [只看该作者]

谢谢管理员。元宵节还一直坚守岗位。

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

代码怎么改呢？

主要是跟这段有关吧

txt = "'*" & txt.Replace("*","[*]") & "*'"

不知道具体怎么改

[此贴子已经被作者于2012-2-6 17:25:24编辑过]

yacity

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

加好友

发短信

等级：二尾狐帖子：532 积分：4020 威望：0 精华：0 注册：2011/6/18 12:41:00

Post By：2012/2/6 17:30:00 [只看该作者]

好了非常感谢管理员，顺祝元宵愉快！

If txt.IndexOf(" ") = -1 Then '如果没有空格
tbl.filter = "chanpinname Like " & txt & " or guige Like " & txt & " "
tbl.Sort = "chanpinname desc,guige desc,danwei desc"

Else
'Dim txt As String
Dim txt2 As String
Dim txt3 As String
Dim Values() As String
Values = txt.split(" ")
txt2=values(0)& "*'"
txt3="'*"& values(1)

tbl.filter = "chanpinname Like " & txt2 & " And guige Like " & txt3 & " "
tbl.Sort = "chanpinname desc,guige desc,danwei desc"
'Messagebox.show(tbl.filter)
End If
End If