图一是我生成目录树的表的格式，一共设置了六个层级；图二和图三是点击目录树节点后实现筛选的功能。目前我的代码参考了递归函数，以下是我的代码：
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好像可以做到，但是代码怎么写？）
加好友 
发短信
Post By：2022/4/22 13:26:00 [只看该作者]
