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
我想要多选筛选,测试了一天了,大神 ,什么问题呢?