主题：[求助]保存目录树名称

遍历目录树所有节点，将每个根节点及其下的各级次节点用“，”相连，形成一行；这样，有多少根节点就有多少行。将上述字符串保存到“表A”的[文本]列，请老师帮助，谢谢！

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    ......

    End If
Next

请举例说明如何用,相连，合成的文本是怎样的？

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.Nodes
    Dim nr As Row = Tables("表A").addnew
    For Each cnd As WinForm.TreeNode In nd.AllNodes
        If cnd.Nodes.Count = 0 Then
            output.Show(cnd.FullPath)
        End If
    Next
Next

参考2楼代码。有问题再说。

多级节点如何合成显示？请举例说明。

请看附件：

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

点击浏览该文件:目录树保存.foxdb

我有两点需要老师帮助：

1、保存按钮。将目录树节点名称保存到[文本]列，格式如示例；

2、根节点排序。我的根节点都是日期，能否对根节点进行排序。

1、

Dim nr As Row = Tables("事件表").current
Dim str As String = ""
For Each nd As WinForm.TreeNode In trv.Nodes
    For Each cnd As WinForm.TreeNode In nd.AllNodes
        If cnd.Nodes.Count = 0 Then
            str &= cnd.FullPath.replace("\", ",") & vbcrlf
        End If
    Next
Next
nr("文本") = str

2、

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For i As Integer = 0 To trv.Nodes.count-1
    Dim d1 As Date = trv.nodes(i).text
    Dim idx As Integer = i
    For j As Integer = i+1 To trv.nodes.count-1
        Dim d2 As Date = trv.nodes(j).text
        If d1 > d2 Then
            idx = j
            d1 = d2
        End If
    Next
    Dim node = trv.nodes(idx)
    For j As Integer = i To idx-1
        node.MoveUp
    Next
Next