主题：目录树无显示。请教狐狸爸爸：问题出在哪里？

2、目录树的NodeMouseDoubleClick事件：

        Dim Value()As String
        Value = e.Node.FullPath.Split("\")
        Select Case e.Node.Level
            Case 0
                Tables("常用技术标准库").Filter ="[发行] = '" & Value(0) & "'"
            Case 1
                Tables("常用技术标准库").Filter ="[发行] = '" & Value(0) & "' And [分类1] = '" & Value(1) & "'"
            Case 2
                Tables("常用技术标准库").Filter ="[发行] = '" & Value(0) & "' And [分类1] = '" & Value(1) &"' And [分类2] = '" & Value(2) & "'"
        End Select

3、未将分区面板的停靠属性也设为Fill。不会是这问题吧。