专家坐堂-筛选使用复选组合框中的内容问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  筛选使用复选组合框中的内容问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142908)

--  作者：akkio99
--  发布时间：2019/11/8 17:00:00
--  筛选使用复选组合框中的内容问题

Dim cc As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
With cc
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Dim s As String
For Each s In ".Value".split(",")

If s > "" Then
s = s & ","
End If
s = s & "\'" & .Value & "\'"
Next
If s > "" Then
Filter = Filter & "职称 In (" & s & ")"
End If
End If
End With

我想要多选筛选，测试了一天了，大神，什么问题呢？

--  作者：有点蓝
--  发布时间：2019/11/8 20:17:00
--
With e.Form.Controls("CheckedComboBox1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "职称 In (\'" & .Value.replace(",","\',\'") & "\')"
end if
end with