[浏览完整版]
标题：[求助]窗口筛选
1楼
185723664 发表于：2024/8/29 10:13:00
此主题相关图片如下：23.jpg
2楼
有点蓝 发表于：2024/8/29 10:23:003楼
185723664 发表于：2024/8/29 11:27:00蓝大师，按上楼写的下面代码不是想要的效果
Dim Filter As String
With e.Form.Controls("ComboBox1")
If .Value IsNot Nothing Then
Filter = "第一列 = '" & .Value & "'"
End If
End With
If Filter > "" Then
Tables("表A").Filter = Filter
End If
想实现，如图，
先操作：
1、录入abc
2、数量 1
先操作：
1、录入abc
2、数量 1
3、按钮代码满足第一列行筛查条件有3种情况
1、 含a，不含 bc
2、含b，不含 ac
3、含c，不含 ab
不懂如何实现动态取 含的数量、不含的数量
[此贴子已经被作者于2024/8/29 11:28:28编辑过]
4楼
有点蓝 发表于：2024/8/29 11:30:00没看懂，举例说明一下
5楼
185723664 发表于：2024/8/29 11:38:00要实现效果实例操作1：
1、ComboBox1 录入abc
1、ComboBox1 录入abc
2、 ComboBox2 录入 数量 1
3、按钮代码满足第一列行筛查条件有3种情况
3.1 含a，不含 bc
3.2 含b，不含 ac
3.3 含c，不含 ab
要实现效果实例操作2：
1、ComboBox1 录入abc
1、ComboBox1 录入abc
2、 ComboBox2 录入 数量 2
3、按钮代码满足第一列行筛查条件有3种情况
3.1 含ab，不含 c
3.2 含bc，不含 a
3.3 含ac，不含 b
不懂如何实现动态取 含的数量、不含的数量
Dim Filter As String
With e.Form.Controls("ComboBox1")
If .Value IsNot Nothing Then
Filter = "第一列 = '" & .Value & "'" 不是要搜索 abc，要搜索 abc 中的 1个或2个或3个字符（数量由ComboBox2里面输入的数量确定）
End If
End With
If Filter > "" Then
Tables("表A").Filter = Filter
End If
[此贴子已经被作者于2024/8/29 11:40:48编辑过]
6楼
有点蓝 发表于：2024/8/29 11:50:00参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=127091&skin=0
7楼
185723664 发表于：2024/8/29 12:47:00蓝大师，上面案例太复杂了
我这边需求没那么复杂
1、录入的 固定 3个字符
2、录入的数量也只有 1 和 2 两种数量
要实现效果实例操作1：
1、ComboBox1 录入abc
2、 ComboBox2 录入 数量 1
3、按钮代码满足第一列行筛查条件有3种情况
3.1 含a，不含 bc
3.2 含b，不含 ac
3.3 含c，不含 ab
要实现效果实例操作2：
1、ComboBox1 录入abc
2、 ComboBox2 录入 数量 2
3、按钮代码满足第一列行筛查条件有3种情况
3.1 含ab，不含 c
3.2 含bc，不含 a
3.3 含ac，不含 b
我想用 left Right 还有第2个字符 含不含，这样应该就可以了
[此贴子已经被作者于2024/8/29 12:50:31编辑过]
8楼
有点蓝 发表于：2024/8/29 14:01:00举例说明一下，操作2：
1、ComboBox1 录入abc
2、 ComboBox2 录入 数量 2
1楼哪些数据符合条件？
9楼
y2287958 发表于：2024/8/29 14:10:003个字符可以重复吗
还有，分顺序吗？例如：bc与cb一样吗
[此贴子已经被作者于2024/8/29 14:11:25编辑过]
10楼
185723664 发表于：2024/8/29 14:38:00蓝大师，第3行 abcd 这一行 含有 1、录入abc 2、abc中的数量 a+b = 2