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

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