参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=119635&skin=0

型号单选，规格多选筛选ok了

如果要实现，型号也多选，规格也多选，代码怎么修改呢？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:两列多值筛选，代码怎么修改呢？.foxdb

Dim Filter As String
With e.Form.Controls("型号")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Dim str As String = "1=2"
        For Each s As String In .Value.split(",")
            str &= " or 型号 like \'%" & s & "%\'"
        Next
        Filter = Filter & " (" & str & ") "
    End If
End With
With e.Form.Controls("规格1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Dim str As String = "1=2"
        For Each s As String In .Value.split(",")
            str &= " or 规格 like \'%" & s & "%\'"
        Next
        Filter = Filter & " (" & str & ") "
    End If
End With
If Filter > "" Then
    Tables("表A").Filter = Filter
End If

With e.Form.Controls("规格1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Dim str As String = "1=1"
        For Each s As String In .Value.split(",")
            str &= " and 规格 like \'%" & s & "%\'"
        Next
        Filter = Filter & " (" & str & ") "
    End If
End With

堂主，选择型号a和BV后，规格要下拉多选显示1.5  2.5 4 代码怎么写呢？

此主题相关图片如下：捕获.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:两列多值筛选，代码怎么修改呢？.foxdb

参考

http://www.foxtable.com/webhelp/scr/1523.htm

型号输入b，再选址规格，筛选不对。BV型号的规格也筛选出来了

下面代码还是不行，怎么修改呢？

Dim Filter As String
With e.Form.Controls("型号")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Dim str As String = "1=2"
        For Each s As String In .Value.split(",")
            str &= " or 型号 = \'%" & s & "%\'"
        Next
        Filter = Filter & " (" & str & ") "
    End If
End With
Dim cmb As WinForm.CheckedComboBox
cmb = e.Sender
If filter = "" Then
    cmb.ComboList = DataTables("表A").GetComboListString("规格")
Else
    cmb.ComboList = DataTables("表A").GetComboListString("规格", filter)
End If

此主题相关图片如下：捕获.jpg

str &= " or 型号 like \'%" & s & "%\'"

改成

str &= " or (\',\' + 型号 + \',\') like \'%," & s & ",%\'"