- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 递归目录树生成及筛选的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176672)
-- 发布时间：2022/4/22 13:26:00
-- 递归目录树生成及筛选的问题
图一是我生成目录树的表的格式，一共设置了六个层级；图二和图三是点击目录树节点后实现筛选的功能。
目前我的代码参考了递归函数，以下是我的代码：
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
Next
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
Next
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好像可以做到，但是代码怎么写？）
-- 发布时间：2022/4/22 13:27:00
--
此主题相关图片如下：3微信图片_20220422131648.png
此主题相关图片如下：2微信图片_20220422131641.png
这是附图。
此主题相关图片如下：1微信图片_20220422131630.png
-- 发布时间：2022/4/22 13:40:00
--
请上传实例测试
-- 发布时间：2022/4/22 13:58:00
--
老师 麻烦帮忙看看
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:a-造价数据库 - 副本.zip |
-- 发布时间：2022/4/22 14:27:00
--
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
Next
现在解决目录树节点名称显示的问题。
但是还没有想到好的思路只显示到第五个层级。
-- 发布时间：2022/4/22 14:35:00
--
1、数据有问题，缺少一行层级为“01.01.01.01.01”的5层数据
2、这种筛选肯定只能显示点击的节点和这个节点下面一层数据
-- 发布时间：2022/4/22 14:56:00
--
是的 有的层级只有五级 而有的有六级。请问要怎么处理层级关系才合理？
有两个目的：1.层级数不同的递归生成目录树节点；2.第六层层级不显示。
图片是市面上常用软件的做法。
此主题相关图片如下：微信图片_20220422145502.png
此主题相关图片如下：微信图片_20220422145502.png-- 发布时间：2022/4/22 15:34:00
--
不理解您说的是什么意思。
现在是数据有4层和6层，缺少中间的5层，而不是有5层，没有6层
此主题相关图片如下：1.png
-- 发布时间：2022/4/22 15:53:00
--
请问老师 我是需要把编码格式为“A-1-1-1”的数据，修改为不同的层级吗？
我现在想使目录树不显示第六层的数据。
此主题相关图片如下：微信图片_20220422155028.png
此主题相关图片如下：微信图片_20220422155028.png-- 发布时间：2022/4/22 16:26:00
--
没有5层的就把6层改为5层