以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教关于目录树的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43995)
--  作者：飞天
--  发布时间：2013/12/20 11:35:00
--  请教关于目录树的问题
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(",")

以上代码.是将选定的信息,存储到指定表的行,并以\',\'符号隔开;
我现在需要将所选定的信息,分别将各个节点以新增行的形式存储到指定表的列中,请问代码应该如何修改.
--  作者：Bin
--  发布时间：2013/12/20 11:38:00
--  
各个节点新增行的形式? 每个节点独立一行? 
--  作者：飞天
--  发布时间：2013/12/20 11:41:00
--  
是的,各个节点需要独立的行
--  作者：Bin
--  发布时间：2013/12/20 11:44:00
--  

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
       dim dr as datarow = DataTables("组件BOM").AddNew()
        dr("列名") = nd.Text
    End If
Next
--  作者：飞天
--  发布时间：2013/12/20 11:50:00
--  
解决了,谢谢!!!