主题：[求助]递归目录树

内部函数

Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
Dim gz As String = args(2)
For Each dr As DataRow In dt.Select("","编码规则") '按代码顺序添加
    Dim km As String = dr("编码规则")
    Dim kmf As String = dr("编码名称")
    If km.StartsWith(nd.name) AndAlso km.Length = nd.Name.Length + val(gz(dr("编码级次")-1)) Then
        Dim cd As Winform.TreeNode = nd.Nodes.Add(dr("编码规则"),kmf & " " &  dr("编码规则"))
        Functions.Execute("AddChildren",cd,dt,gz)
    End If
Next

全部路径

e.Form.Controls("TextBox1").Text = e.Node.FullName

或者

e.Form.Controls("TextBox1").Text = e.Node.FullPath

当前节点

e.Form.Controls("TextBox1").Text = e.Node.Name '或者 text

1、获取到e.node.datarow，然后获取各列数据。

2、截取最后两位这样写 msgbox(right("0401", 2))

汗，这不是更简单？
 
Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
Dim gz As String = args(2)
For Each dr As DataRow In dt.Select("","编码规则") '按代码顺序添加
    Dim km As String = dr("编码规则")
    Dim kmf As String = dr("编码名称")
    If km.StartsWith(nd.name) AndAlso km.Length = nd.Name.Length + val(gz(dr("编码级次")-1)) Then
        Dim cd As Winform.TreeNode = nd.Nodes.Add(dr("编码规则"),kmf & " " &  right(dr("编码规则"), 2))
        Functions.Execute("AddChildren",cd,dt,gz)
    End If
Next

10楼代码不会影响筛选，请认真测试。

不会调试，请上传具体实例。