[求助]筛选问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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编辑过]

主题：[求助]筛选问题