以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  设计查询窗口，如果面对的是checkcombolist的多个值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106556)
--  作者：jayson
--  发布时间：2017/9/11 15:59:00
--  设计查询窗口，如果面对的是checkcombolist的多个值

设计查询窗口，里面的筛选条件 如下

这个案例是产品对应一个vlaue

如果是checkcombolist,对应多个产品，如何处理?

 

Dim Filter As String
With e.Form.Controls("cmbProduct")
    If .Value IsNot Nothing Then
        Filter = "产品 = \'" & .Value & "\'"
    End If
End With
--  作者：有点甜
--  发布时间：2017/9/11 16:00:00
--  
Dim Filter As String
With e.Form.Controls("cmbProduct")
    If .Value IsNot Nothing Then
        Filter = "产品 in (\'" & .Value.Replace(",", "\',\'") & "\')"
    End If
End With