以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  二次筛选不包含的问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171766)
--  作者：2425004926
--  发布时间：2021/9/8 18:37:00
--  二次筛选不包含的问题？
经过第一列的初次筛选后，第二列在原基础上二次筛选，
如果不包含用  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" & ")"
--  作者：有点蓝
--  发布时间：2021/9/9 9:08:00
--  
filter = Filter & "([" & a.Text & "] Not Like \'%" & c.Text & "%\' Or [" & a.Text  & "] Is Null)"
--  作者：2425004926
--  发布时间：2021/9/9 17:29:00
--  
好了！非常感谢！感谢！感谢！