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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于多条件筛选编写代码

共有6519人关注过本帖树形打印复制链接主题：[求助]关于多条件筛选编写代码

moseser

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

加好友

发短信

等级：三尾狐帖子：622 积分：5303 威望：0 精华：0 注册：2022/4/4 14:42:00

[求助]关于多条件筛选编写代码 发帖心情

Post By：2022/9/21 17:52:00 [显示全部帖子]

我想在一个文本框textbox内输入内容 ,如混凝土 C30 M3

其间用空格分开，表示多条件，如

dim value as string = e.Form.Controls("TextBox1").value

dim sp() as string = value.split(" ") 用空格断开

然后点击确认按钮后，进行表格的筛选

即：

（类别列包含 sp(0) 或者项目名称列包含 sp(0) 或者项目特征列包含 sp(0) 或者工作内容列包含 sp(0) ）且（类别列包含 sp(1) 或者项目名称列包含 sp(1 或者项目特征列包含 sp(1) 或者工作内容列包含 sp(1) ）且（类别列包含 sp(2) 或者项目名称列包含 sp(2 或者项目特征列包含 sp(2) 或者工作内容列包含 sp(2) ） ………………

进行重复筛选

问题：后面的这段代码如何编写，我老是写不对

moseser

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

加好友

发短信

等级：三尾狐帖子：622 积分：5303 威望：0 精华：0 注册：2022/4/4 14:42:00

回复：（有点蓝）dim filter as string = "1=1"dim sp... 发帖心情

Post By：2022/9/22 15:54:00 [显示全部帖子]

dim filter as string = "1=1"

这一句是什么意思？

moseser

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

加好友

发短信

等级：三尾狐帖子：622 积分：5303 威望：0 精华：0 注册：2022/4/4 14:42:00

回复：（有点蓝）辅助合并条件用，减少代码，提高效率... 发帖心情

Post By：2022/9/23 9:48:00 [显示全部帖子]

我想再扩展一下如果文字前面带有”-“ ,则表示这些列内不含这个字

如：混凝土 m3 -圈梁

这表示，下面列包含混凝土、m3 ,但不包含圈梁的行

如下写的代码，不包含部分是不是不对？？

If e.TextBox.Text IsNot Nothing Then

Dim filter As String = "1=1"

Dim sp() As String = e.TextBox.Text.split(" ")

For Each s As String In sp

If s.StartsWith("-") Then

Dim n As Integer = s.Length

If n > 1 Then

s = right(s, n - 1)

filter = filter & " and (项目名称 like '%" & s & "%' and 项目特征 like '%" & s & "%' and 计量单位 like '%" & s & "%' and 单位工程 like '%" & s & "%' and 部位 like '%" & s & "%' )"

End If

Else

filter = filter & " and (项目名称 like '%" & s & "%' or 项目特征 like '%" & s & "%' or 计量单位 like '%" & s & "%' or 单位工程 like '%" & s & "%' or 部位 like '%" & s & "%' )"

End If

Tables("清单_Table1").Filter = filter & " and 三级目录 = 'NotNamed' "

End If

moseser

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

加好友

发短信

等级：三尾狐帖子：622 积分：5303 威望：0 精华：0 注册：2022/4/4 14:42:00

回复：（moseser）回复：（有点蓝）辅助合并条件用，减... 发帖心情

Post By：2022/9/23 9:52:00 [显示全部帖子]

If e.TextBox.Text IsNot Nothing Then

Dim filter As String = "1=1"

Dim sp() As String = e.TextBox.Text.split(" ")

For Each s As String In sp

If s.StartsWith("-") Then

Dim n As Integer = s.Length

If n > 1 Then

s = right(s, n - 1)

filter = filter & " and (项目名称 not like '%" & s & "%' and 项目特征 not like '%" & s & "%' and 计量单位 not like '%" & s & "%' and 单位工程 not like '%" & s & "%' and 部位 not like '%" & s & "%' )"

End If

Else

filter = filter & " and (项目名称 like '%" & s & "%' or 项目特征 like '%" & s & "%' or 计量单位 like '%" & s & "%' or 单位工程 like '%" & s & "%' or 部位 like '%" & s & "%' )"

End If

Tables("清单_Table1").Filter = filter & " and 三级目录 = 'NotNamed' "

End If

moseser

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

加好友

发短信

等级：三尾狐帖子：622 积分：5303 威望：0 精华：0 注册：2022/4/4 14:42:00

Post By：2022/9/23 9:57:00 [显示全部帖子]

知道了，是不是把 not 写在前面？

filter = filter & " and not (项目名称 like '%" & s & "%' or 项目特征 like '%" & s & "%' or 计量单位 like '%" & s & "%' or 单位工程 like '%" & s & "%' or 部位 like '%" & s & "%' )"

moseser

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

加好友

发短信

等级：三尾狐帖子：622 积分：5303 威望：0 精华：0 注册：2022/4/4 14:42:00

回复：（有点蓝）辅助合并条件用，减少代码，提高效率... 发帖心情

Post By：2022/9/23 10:04:00 [显示全部帖子]

感觉还是不对

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

主题：[求助]关于多条件筛选编写代码