以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助：把目录树倒到表格中还不会  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81639)
--  作者：杭州书韵
--  发布时间：2016/3/2 15:47:00
--  求助：把目录树倒到表格中还不会
我编辑了一个 有二级 三级类目的目录树 但是我想要导入到表格中。还不会求+qq61523910 帮忙
 帮我倒下这个目录树
谢谢
--  作者：大红袍
--  发布时间：2016/3/2 16:08:00
--  
Dim cs() As String = {"第一列", "第三列", "第四列"}
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In tr.AllNodes
    If nd.Nodes.count = 0 Then
        Dim ary() As String = nd.FullPath.Split("\\")
        Dim ndr As DataRow = DataTables("表a").addnew
        For i As Integer = 0 To ary.length - 1
            ndr(cs(i)) = ary(i)
        Next
    End If
Next