[求助]有点甜老师，这两个复选怎么一起用啊！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

甜老师，我建立了一个ComboBox控件，按中国的大区，分为东北、西北等，又建立了CheckedComboBox控件，是中国各省份的名称，怎么能达到组合筛选使用，您以前给我的代码，只能是选择了其中的一个复选框才能用。代码如下

Dim Filter As String = "1=1"

With e.Form.Controls("combobox3")

If .Value IsNot Nothing Then

Filter &= " and 中国地区 = '" & .Value & "'"

End If

End With

With e.Form.Controls("CheckedComboBox2")

If .Value <> Nothing Then

Filter &= " and 省份名称 in ('" & .Value.replace(",", "','") & "')"

End If

End With

Tables("表A").Filter = Filter

此主题相关图片如下：微信截图_20190128202948.jpg

如果选了东北，下面选了东北三省，黑，吉，或辽就按东北筛选，关键是想选了东北，下面选了重庆，上海，那就按东北+重庆+上海，把符合条件的筛选出来。这样代码怎么改呢，又得麻烦你啦，谢谢！

只要符合其中一个就可以啊，谢谢！

[此贴子已经被作者于2019/1/28 21:02:36编辑过]

蓝老师，我刚才试了，确实可以，但是我还建立了很多的复选框，如果把and改成or，那么其它的条件都乱套了，我只想让这地区和省份的能一起组合筛选使用，不影响其它条件的，谢谢老师！

Dim Filter As String = "1=1"

With e.Form.Controls("combobox1")

If .Value IsNot Nothing Then

Filter = Filter & " and kl = '" & .Value & "'"

End If

End With

With e.Form.Controls("combobox2")

If .Value IsNot Nothing Then

Filter = Filter & " and lqpc like '%" & .Value & "%'"

End If

End With

With e.Form.Controls("CheckedComboBox1")

If .Value <> Nothing Then

Filter &= " and 年度 in ('" & .Value.replace(",", "','") & "')"

End If

End With

With e.Form.Controls("textbox6")

If .Value IsNot Nothing Then

Dim str As String = ""

For Each s As String In .value.split(" ")

str &= "名称 like '%" & s & "%' or "

Filter &= " and (" & str.substring(0, str.length-4) & ")"

End If

End With

With e.Form.Controls("CheckedComboBox2")

If .Value <> Nothing Then

Filter &= " and 省份名称 in ('" & .Value.replace(",", "','") & "')"

End If

End With

With e.Form.Controls("combobox3")

If .Value IsNot Nothing Then

Filter &= " and 中国地区 = '" & .Value & "'"

End If

End With

Tables("查询表").Filter = Filter

我只想让红色代码部分组合使用，不影响其它条件，谢谢！

完美实现了，你太牛啦，非常感谢！

主题：[求助]有点甜老师，这两个复选怎么一起用啊！