主题：目录树的选定内容如何保存成一行

狐狸爸爸的通用目录树，多选了以后，点一下按钮，如何将选的节点的名字（注：非节点的表里的内容）保存在在一个单元格里。每保存一次增加一个行

谁指导一下呀

设置在目录树的NodeMouseClick事件中：

Dim r AS Row = Tables("xxx").AddNew
r("某列") = e.node.Text

狐狸爸爸，我是在目录树旁边，放了一个按纽，点击一个保存按钮，然后想把所有的选中的节点的名字都保存在表新增的一行里。而不是点一下保存一个，因为可能有的点了又取消了，我需要把最终用户选了哪些节点保存下来。

麻烦在指导一下。

With Tables("名录搜索_tblSearchjindu")
.addnew()
.current("tijiaoriqi") = Date.Today
..Current("guanjianci")=e.Form.Controls("txtSearch").text
.Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If   nd.Checked = True Then
    .current("guanjianci")=nd.Text

    End If
Next
End With

我写的的怎么只能保存一个节点的名称，而不是所有的选中的节点的名称

With Tables("名录搜索_tblSearchjindu")
    Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
    Dim r As Row = .addnew()
    r("tijiaoriqi") = Date.Today
    r("guanjianci")=e.Form.Controls("txtSearch").text
    For Each nd As WinForm.TreeNode In trv.AllNodes
        If nd.Checked = True Then
            If r.Isnull("guanjianci") = True
                r("guanjianci")= trv.SelectedNode.Text
            Else
                r("guanjianci") =  r("guanjianci") & "," & trv.SelectedNode.Text
            End If
        End If
    Next
End With