以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树节点问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116531)
--  作者：Springamy
--  发布时间：2018/3/26 14:13:00
--  目录树节点问题

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之下就没有子节点了
--  作者：有点甜
--  发布时间：2018/3/26 14:37:00
--  

1、你这段是筛选代码，点击后执行筛选的。

 

2、你说的没有子节点，应该是目录树的生成问题吧？生成的目录树不正确？贴出生成代码。