主题：有没有根据目录树自动生成数字形式的级码的代码？

http://www.foxtable.com/help/topics/2622.htm

例子

 

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

点击浏览该文件:管理项目4.table

甜老师，这个是用数字在增加节点的时候就将节点名字用数字重命名好了，但是我这里有按钮特别多，有“重命名”，“增加根节点”“增加子节点”“插入节点”“上移”“下移”“左移”“右移”“删除”等按钮。所以这样就需要每个按钮的代码考虑“数字name编码的问题”。

 最后不是有一个保存按钮么？你要怎么操作都可以，最后保存的时候，就是重新按照顺序生成的啊

甜老师，这个例子是用数字在增加节点的时候就将节点名字用数字重命名好了，但是我这里有按钮特别多，有“重命名”，“增加根节点”“增加子节点”“插入节点”“上移”“下移”“左移”“右移”“删除”等按钮。所以这样就需要每个按钮的代码考虑“数字name编码的问题”。一个“上移”操作，就需要重新调整“级码数字”。

  看4楼，最后 一次性保存。

老师你看我加了其他按钮，马上就不行了你这个“保存按钮”。

 代码如下

 

Dim dt As DataTable = DataTables("表A")
dt.DataRows.Clear
Dim dic As New Dictionary(of Integer, Integer)

For Each nd As WinForm.TreeNode In e.Form.Controls("TreeView1").AllNodes
    If nd.Level = 0 AndAlso dic.count > 0 Then
        Dim temp = dic(0)
        dic.Clear
        dic.Add(0, temp)
    End If
    If dic.ContainsKey(nd.Level) = False Then
        dic.Add(nd.Level, 1)
    Else
        dic(nd.Level) = dic(nd.Level) + 1
    End If
    Dim ndr As DataRow = dt.AddNew
    Dim str As String = ""
    For i As Integer = 0 To nd.Level
        str &= dic(i) & "."
    Next
    ndr("第一列") = str.TrimEnd(".")
    ndr("第二列") = nd.Text
Next

还有一点问题，看例子表格或截图。

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

点击浏览该文件:数字级码生成.table

此主题相关图片如下：截图00.jpg

代码

 

Dim dt As DataTable = DataTables("表A")
dt.DataRows.Clear
Dim dic As New Dictionary(of Integer, Integer)
Dim prevLevel As Integer = 0
For Each nd As WinForm.TreeNode In e.Form.Controls("TreeView1").AllNodes
    If dic.ContainsKey(nd.Level) = False Then
        dic.Add(nd.Level, 1)
    Else
        If nd.level < prevLevel Then
            dic(prevLevel) = 0
        Else
            dic(nd.Level) = dic(nd.Level) + 1
        End If
        prevLevel = nd.Level
    End If
    Dim ndr As DataRow = dt.AddNew
    Dim str As String = ""
    For i As Integer = 0 To nd.Level
        str &= dic(i) & "."
    Next
    ndr("第一列") = str.TrimEnd(".")
    ndr("第二列") = nd.Text
Next