主题：[求助]多值字段关联筛选

Dim c As Col = e.Table.Cols(e.NewRange.ColSel)

Select Case c.name

    Case "装备栏1"

        If Forms("窗口1").opened() Then

            Tables("窗口1_Table1").Filter = "阶级 <= '" & e.Table.Current("可装备阶数") & "' and (元素 = '" & e.Table.Current("元素") & "' or 元素亲和 = '" & e.Table.Current("元素") & "') and  类型 = '" & e.Table.Current("装备栏1") & "'"

        End If

但这只能单项，如果是多值时就不行，救助代码应该如何修改？