以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  CheckedComboBox筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143161)
--  作者：cd_tdh
--  发布时间：2019/11/15 13:32:00
--  CheckedComboBox筛选

老师，CheckedComboBox控件多选筛选应该怎么写？这样写筛选不出来。

With e.Form.Controls("给付方式")
    If .Value <> Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter &= Filter & "费用给付方式 like \'%" & .Value & "%\'"
    End If
End With
--  作者：有点蓝
--  发布时间：2019/11/15 13:51:00
--  
Filter &= Filter & "费用给付方式 in (\'" & .Value.replace(",","\',\'") & "\'"
--  作者：cd_tdh
--  发布时间：2019/11/15 13:59:00
--  

Filter &= Filter & "费用给付方式 in (\'" & .Value.replace(",","\',\'") & "\')"

 

这儿差一个括号。