经过第一列的初次筛选后,第二列在原基础上二次筛选,
如果不包含用 Filter & "[" & a.Text & "] Not Like '" & "%" & c.Text & "%" & "'" ,默认有空格就被过滤掉了,我想把有空格的可以筛选到,所以用下边的代码,红色表示,可是会出错,那么红色的代码应怎样改?请老师指点一下
Dim Filter As String
。。。
If Filter > "" Then
Filter = Filter & " And "
Select Case b.Text
Case "包含"
filter = Filter & "[" & a.Text & "] Like '" & "%" & c.Text & "%" & "'"
Case "不包含"
filter = "(" & Filter & "[" & a.Text & "] Not Like '" & "%" & c.Text & "%" & "'" & ")" Or "(" & Filter & "[" & a.Text & "] Is Null" & ")"
Case "不是"
filter = filter & "(" & "[" & a.Text & "] <> '" & c.Text & "' Or [" & a.Text & "] Is Null" & ")"