以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助 关于目录树的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44000)

--  作者:飞天
--  发布时间:2013/12/20 12:56: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("组件表").AddNew()
        dr("物料名称") = nd.Text
    End If
Next

以上代码,是各个节点以新增行的形式存储到指定表的指定列.

但有一个问题,以上代码会将父节点也存储到表中,
这是不行的,,请问如何解决?

--  作者:Bin
--  发布时间:2013/12/20 13:04:00
--  
判断一下 nd.level 即可

比如有3层 你只要最后一层
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked andalso nd.level=2 Then
        Dim dr As DataRow = DataTables("组件表").AddNew()
        dr("物料名称") = nd.Text
    End If
Next