主题：如何根据表的某列生成目录树的问题

这样的编码目录，包括空格缩进形式的，俺已经形成了套路：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:编码规则.foxdb

你把科目库发上来，才好找其中的规律。

每一种编码，即使没规则，也是一种规则。

我的单列目录树生成代码，可以说是通用的，编码有规则，就按规则来，没有规则就硬来，总之能生成。

编码规则，当然是规律性越强越好，不会有人故意为难自己，偏要搞的乱糟糟。

9改成10。

以下是引用有点甜在2014-8-11 16:55:00的发言：
 

下载信息  [文件大小：27.3 KB  下载次数：0]

点击浏览该文件:编码规则.rar

递归是不错，可能楼主想要的是：任意一个科目编码表，并没有明确编码规则，先要自动判断规则，然后根据规则生成目录树。

如果能自动判断规则，然后再递归生成目录树，就完美无缺了。

对，原来不难。

不需要递归，也不需要判断规则：

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView科目表")
tv.StopRedraw
Dim t As Table = Tables("科目表")
t.Sort = "科目代码"
Dim lst As New List(Of Integer)
For Each r As Row In t.Rows
    If lst.Contains(r("科目代码").Length) = False Then
        lst.Add(r("科目代码").Length)
    End If
Next
lst.Sort
tv.Nodes.Clear
For Each r As Row In t.Rows
    If tv.Nodes.Contains(r("科目代码")) = False Then
        tv.Nodes.Add(r("科目代码"),r("科目名称"))
    End If
Next
For Each nd As WinForm.TreeNode In tv.AllNodes
    For i As Integer = 1 To lst.Count - 1
        If nd.Name.Length = lst(i) Then           
            For j As Integer = 0 To i - 1
                nd.MoveRight
            Next
        End If
    Next
Next
tv.CollapseAll
tv.ResumeRedraw