主题：目录树节点问题

Dim Value() As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Tables("Table2").Filter ="[总类] = '" & Value(0) & "'"
    Case 1
          Tables("Table2").Filter ="[总类] = '" & Value(0) & "' And [分类1] = '" & Value(1) & "'"
    Case 2
           Tables("Table2").Filter ="[总类] = '" & Value(0) & "' And [分类1] = '" & Value(1) & "' And [分类2] = '" & Value(2) & "'"

End Select

这个代码为什么目录树只能到分类1,分类1之下就没有子节点了