以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于筛选查找  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109797)
--  作者：挡不住的乐事
--  发布时间：2017/11/20 9:17:00
--  关于筛选查找
Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        Filter = "文件名称 = \'" & .Value & "\'"
        
    End If
         If .Value IsNot Nothing Then
              If Filter > "" Then
            Filter = Filter & " And "
              End If
        Filter = Filter & "项目名称 = \'" & .Value & "\'"
        End If
                   If .Value IsNot Nothing Then
                       If Filter >"" Then
            Filter = Filter & " And "
                       End If
        Filter = Filter & "附件 = \'" & .Value & "\'"
                   End If


                 If .Value IsNot Nothing Then
                   If Filter >"" Then
            Filter = Filter & " And "
                   End If
        Filter = Filter & "文件类型 = \'" & .Value & "\'"
                End If
End With
If Filter > "" Then
    Tables("工程部技术文件").Filter = Filter
End If
Forms("工程部技术文件查找").close




执行之后输入筛选条件，显示结果为空。
--  作者：有点甜
--  发布时间：2017/11/20 9:30:00
--  

Dim Filter As String
Dim str As String = e.Form.Controls("TextBox1").text
Filter = "文件名称 like \'%" & str & "%\' or 项目名称 like  \'%" & str & "%\' or 附件 like \'%" & str & "%\' or 文件类型 like \'%" & str & "%\'"

Tables("工程部技术文件").Filter = Filter
--  作者：挡不住的乐事
--  发布时间：2017/11/20 10:14:00
--  
已解决，谢谢！