主题：请教关于目录树的问题

Dim s As String

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")

For Each nd As WinForm.TreeNode In trv.AllNodes

    If nd.Checked Then

        s = s & "," & nd.Text

    End If

Next

Dim sr As DataRow

sr = DataTables("组件BOM").AddNew()

sr("物料名称") = s.trim(",")

以上代码.是将选定的信息,存储到指定表的行,并以','符号隔开;

我现在需要将所选定的信息,分别将各个节点以新增行的形式存储到指定表的列中,请问代码应该如何修改.