- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]包含空格多值的行筛选出来 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179590)
-- 发布时间：2022/8/30 22:44:00
-- [求助]包含空格多值的行筛选出来
求助，窗口文本控件，输入多个关键词 含有的行，筛选出来
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:包含空格多值的行筛选出来.foxdb |
-- 发布时间：2022/8/30 22:48:00
--
使用like，比如
第一列 like \'%8%\' and 第一列 like \'%6%\' and 第一列 like \'%0%\'
怎么拼接成上面字符串自己思考一下
-- 发布时间：2022/8/30 22:58:00
-- 回复：（有点蓝）使用like，比如第一列 like '%8...
蓝版主，窗口文本控件里的 860不是固定，要随机录入，用那个函数？
-- 发布时间：2022/8/30 23:04:00
--
按空格拆分
文本框内容.split(" ")
-- 发布时间：2022/8/31 8:07:00
-- 回复：（有点蓝）按空格拆分文本框内容.split(" ")
蓝版主，下面代码还是不行，帮忙修几笔了
\'下面代码不能实现,含有其中1个字符实现
Dim vals() As String =e.Form.Controls("TextBox1").Text.split(" ")
Dim s As String = "("
For Each val As String In vals
s = s & "\'" & val & "\'"
Next
s = s.trim(",") & ")"
Tables("表A").Filter = "第一列 Like " & s
-- 发布时间：2022/8/31 8:40:00
--
分析一下字符串【第一列 like \'%8%\' and 第一列 like \'%6%\' and 第一列 like \'%0%\'】，相同有规律的是【第一列 like \'%xx%\'】，只是里面xx字符不一样，也就是要把多段相同的【第一列 like \'%xx%\'】合并起来，而不是把多段字符合并起来再like
s = s & " and 第一列 like \'%" & val & "%\'"
-- 发布时间：2022/9/1 8:36:00
-- 回复：（有点蓝）分析一下字符串【第一列 like '...
蓝版主，下面代码报错，还是不行
Dim vals() As String =e.Form.Controls("TextBox1").Text.split(" ")
Dim s As String = "("
For Each val As String In vals
\'s = s & "\'" & val & "\',"
s = s & " and 第一列 like \'%" & val & "%\'"
Next
s = s.trim(",") & ")"
Tables("表A").Filter = "第一列 in " & s
-- 发布时间：2022/9/1 9:15:00
--
Dim vals() As String =e.Form.Controls("TextBox1").Text.split(" ")
Dim s As String = "1=1 "
For Each val As String In vals
s = s & " and 第一列 like \'%" & val & "%\'"
Next
Tables("表A").Filter = s
-- 发布时间：2022/9/2 11:10:00
-- 回复：（有点蓝）Dim vals() As String =e.Form...
蓝版主，要改成or合集筛选，and改成or，代码怎么修改？
Dim vals() As String =e.Form.Controls("TextBox1").Text.split(" ") Dim s As String = "1=1 " For Each val As String In vals s = s & " or 第一列 like \'%" & val & "%\'" Next Tables("表A").Filter = s |
-- 发布时间：2022/9/2 11:49:00
--
Dim s As String = "1=2 "