Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]包含空格多值的行筛选出来


  共有7675人关注过本帖树形打印复制链接

主题：[求助]包含空格多值的行筛选出来
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		[求助]包含空格多值的行筛选出来  发帖心情 Post By：2022/8/30 22:44:00 [显示全部帖子]

求助，窗口文本控件，输入多个关键词 含有的行，筛选出来
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:包含空格多值的行筛选出来.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）使用like，比如第一列 like '%8...  发帖心情 Post By：2022/8/30 22:58:00 [显示全部帖子]

蓝版主，窗口文本控件里的 860不是固定，要随机录入，用那个函数？

 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）按空格拆分文本框内容.split(" ")  发帖心情 Post By：2022/8/31 8:07:00 [显示全部帖子]

蓝版主，下面代码还是不行，帮忙修几笔了

'下面代码不能实现,含有其中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
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）分析一下字符串【第一列 like '...  发帖心情 Post By：2022/9/1 8:36:00 [显示全部帖子]

蓝版主，下面代码报错，还是不行

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
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）Dim vals() As String  =e.Form...  发帖心情 Post By：2022/9/2 11:10:00 [显示全部帖子]

蓝版主，要改成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
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）Dim s As String = "1=2 "  发帖心情 Post By：2022/9/29 7:50:00 [显示全部帖子]

Dim vals() As String  =e.Form.Controls("TextBox2").Text.split(" ")
Dim s As String = "1=2 "
For Each val As String  In vals
    s = s & " or 水果 like '%" & val & "%'"
Next
Tables("产品库").Filter = s

蓝总，上面代码如果要改为，不显示Tables("产品库").Filter = s，显示其他的，
（也就是实现反选，加Not代码无效）， s = s & " or 水果 Not like '%" & val & "%'" 
求助，上面代码怎么修改，实现反选
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝） s = s & " and ...  发帖心情 Post By：2022/9/29 9:14:00 [显示全部帖子]

蓝总，上楼代码 反选无效，筛选不出反选的行
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:反选.foxdb
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 7 次数据查询