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

图一是我生成目录树的表的格式，一共设置了六个层级；图二和图三是点击目录树节点后实现筛选的功能。

目前我的代码参考了递归函数，以下是我的代码：

1、自定义函数

Dim nd As WinForm.TreeNode = args(0)

Dim dt As DataTable = args(1)

For Each dr As DataRow In dt.Select("","层级")

Dim cj As String = dr("层级")

If cj.StartsWith(nd.name) AndAlso cj.Length = nd.Name.Length + 3 Then

Dim cd As Winform.TreeNode = nd.Nodes.Add(cj,cj & " " & dr("名称"))

Functions.Execute("AddChildren",cd,dt)

End If

2、窗口--->AfterLoad事件

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView2")

Dim nd As WinForm.TreeNode

Dim dt As DataTable = DataTables("tree定额")

tr.StopRedraw()

tr.Nodes.Clear

tr.Nodes.Add("全部")

For Each dr As DataRow In dt.Select("","层级")

If dr.IsNull("级码") = False AndAlso dr("层级").Length = 2 Then

nd = tr.Nodes.Add(dr("层级"),dr("层级") & " " & dr("名称"))

Functions.Execute("AddChildren",nd,dt)

End If

tr.ResumeRedraw()

3、目录树--->NodesMouseClick事件

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")

If e.Node.Name = "全部" Then

Tables("tree定额").Filter = ""

Else

Tables("tree定额").Filter = "层级 Like '" & e.Node.Name & "%'"

End If

现在求助：（自定义函数不太会用）

1、用层级来分级，但是只显示到第五层节点，即最后一层编码为“A-1-1-1”形式的数据不显示，只通过目录树节点筛选，目录树节点名称显示的是“编码&名称”；

2、筛选后只出现在该层级之下的数据，不出现本层级（BOM好像可以做到，但是代码怎么写？）

此主题相关图片如下：3微信图片_20220422131648.png

此主题相关图片如下：2微信图片_20220422131641.png

这是附图。

此主题相关图片如下：1微信图片_20220422131630.png

请上传实例测试

老师麻烦帮忙看看

下载信息 [文件大小：下载次数： ]
点击浏览该文件:a-造价数据库 - 副本.zip

Dim nd As WinForm.TreeNode = args(0)

Dim dt As DataTable = args(1)

For Each dr As DataRow In dt.Select("","层级")

Dim cj As String = dr("层级")

Dim bm As String = dr("编码")

If cj.StartsWith(nd.name) AndAlso cj.Length = nd.Name.Length + 3 Then

Dim cd As Winform.TreeNode = nd.Nodes.Add(cj,dr("编码") & " " & dr("名称"))

Functions.Execute("AddChildren",cd,dt)

End If

现在解决目录树节点名称显示的问题。

但是还没有想到好的思路只显示到第五个层级。

1、数据有问题，缺少一行层级为“01.01.01.01.01”的5层数据

2、这种筛选肯定只能显示点击的节点和这个节点下面一层数据

是的有的层级只有五级而有的有六级。请问要怎么处理层级关系才合理？

有两个目的：1.层级数不同的递归生成目录树节点；2.第六层层级不显示。

图片是市面上常用软件的做法。
图片点击可在新窗口打开查看

此主题相关图片如下：微信图片_20220422145502.png

不理解您说的是什么意思。

现在是数据有4层和6层，缺少中间的5层，而不是有5层，没有6层

此主题相关图片如下：1.png

请问老师我是需要把编码格式为“A-1-1-1”的数据，修改为不同的层级吗？

我现在想使目录树不显示第六层的数据。
图片点击可在新窗口打开查看

此主题相关图片如下：微信图片_20220422155028.png

没有5层的就把6层改为5层

主题：递归目录树生成及筛选的问题