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

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

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楼代码。有问题再说。

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

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