主题：递归定义出现错误

 1、你表里面的编码级次一点要先计算出来，可以通过重置列;

 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("编码规则")
    If km.StartsWith(nd.name) AndAlso km.Length = nd.Name.Length + val(gz(dr("编码级次")-1)) Then
         Dim cd As Winform.TreeNode = nd.Nodes.Add(km,km & " " & dr("编码名称"))
        Functions.Execute("AddChildren",cd,dt,gz)
    End If
Next