表A 第一列 5行的值：
中国
中国,法国,美国
中国,法国
英国,中国
法国,美国
求助：
CheckedComboBox 值为中国时，筛选出
中国
中国,法国,美国
中国,法国
英国,中国
CheckedComboBox 值为中国,美国时，筛选出
中国,法国,美国
下面代码怎么修改实现，求助
Dim tbl As Table = Tables("表A")
If tbl.Filter.Contains("第一列") = False
vars("filter") = tbl.Filter
End If
Dim txt As String = e.Form.Controls("第一列").Text
If txt = "" Then
tbl.Filter = ""
Else
Dim vals() As String =e.Form.Controls("第一列").Text.split(",")
Dim s As String = "("
For Each val As String In vals
s = s & "'" & val & "',"
Next
s = s.trim(",") & ")"
Tables("表A").Filter = "第一列 in " & s
's = "'%" & s & "%'"
'If vars("filter") > "" Then
'tbl.Filter = vars("filter") & " and 第一列 Like " & s
'Else
'tbl.Filter = "第一列 Like " & s
'End If
End If
加好友 
发短信
Post By：2020/6/29 17:52:00 [显示全部帖子]
