以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选结果  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117653)
--  作者：有点蓝
--  发布时间：2018/4/16 22:53:00
--  
msgbox(Filter)
--  作者：有点甜
--  发布时间：2018/4/17 8:48:00
--  

改成

 

With e.Form.Controls("节点代号1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "节点代号 like \'%" & .Value & "%\'"
    End If
End With