以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]筛选问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178246)
--  作者：建筑人生
--  发布时间：2022/6/25 10:39:00
--  [求助]筛选问题
Dim Filter As String
Dim t1, t2, t3, t4, t5 As String
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            t1 = e.Node.Text
            Filter = "[科目表_一级] =" & "\'" & t1 & "\'" \'可以使用           
            \'Filter = "[科目表_一级] =" & "\'" & t1 & "\'" Or "[对方科目_一级] =" & "\'" & t1 & "\'"
        Case 1
            t1 = e.Node.Text
            t2 = e.Node.ParentNode.Text
            Filter = "[科目表_一级] =" & "\'" & t1 & "\' Or [对方科目_一级] =" & "\'" & t1 & "\' And [科目表_二级] =" & "\'" & t2 & "\' Or [对方科目_二级] =" & "\'" & t2 & "\'"
                   ‘’以上红色代码错在哪里，筛选不出来   ，要怎么修改          
        Case 2
           
            t1 = e.Node.Text
            t2 = e.Node.ParentNode.Text
            t3 = e.Node.ParentNode.ParentNode.Text          
            
            
        Case 3
            t1 = e.Node.Text
            t2 = e.Node.ParentNode.Text
            t3 = e.Node.ParentNode.ParentNode.Text
            t4 = e.Node.ParentNode.ParentNode.ParentNode.Text
           
        Case 4
           
            t1 = e.Node.Text
            t2 = e.Node.ParentNode.Text
            t3 = e.Node.ParentNode.ParentNode.Text
            t4 = e.Node.ParentNode.ParentNode.ParentNode.Text
            t5 = e.Node.ParentNode.ParentNode.ParentNode.ParentNode.Text
           
    End Select
End If
Tables("流水账").Filter = Filter
[此贴子已经被作者于2022/6/25 10:39:59编辑过]
--  作者：有点蓝
--  发布时间：2022/6/25 11:00:00
--  
Filter = "([科目表_一级] =\'" & t1 & "\' Or [对方科目_一级] =\'" & t1 & "\') And ([科目表_二级] =\'" & t2 & "\' Or [对方科目_二级] =\'" & t2 & "\')"
msgbox(Filter )