主题：[求助]筛选问题

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

Filter = "([科目表_一级] ='" & t1 & "' Or [对方科目_一级] ='" & t1 & "') And ([科目表_二级] ='" & t2 & "' Or [对方科目_二级] ='" & t2 & "')"