主题：[求助]导出目录树数据

老师，我要把目录树集合的数据（根目录\子目录\窗口名\按钮名称|按钮标题）复制到窗口控件管理表中对号入座。窗口控件管理表列名称“根目录\子目录\窗口名\按钮名称|按钮标题”

参考：

老师好，有的是根目录中直接是窗口控件我希望跳过窗口把窗口名称复制到窗口1中，同时把按钮名称和按钮标题拆分开复制到对应的列中。

 

 

此主题相关图片如下：图像 1.png

 2楼代码看懂了没有？哪里不会做？

 

 上传具体实例说明你的问题。

我要把目录树集合的数据（根目录\子目录\窗口名\按钮名称|按钮标题）复制到窗口控件管理表中对号入座。窗口控件管理表列名称“根目录\子目录\窗口名\按钮名称|按钮标题”

 

此主题相关图片如下：2017-11-08 09 33 19.png

具体的例子发上来测试。

老师，我要把窗口1目录树集合的控件数据通过按钮复制到"窗口控件管理表"中,（对号入座）.

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:复制.table

Dim trv As WinForm.TreeView = Forms("窗口1").controls("TreeView3")
Dim dr As DataRow
For Each n As WinForm.TreeNode In trv.AllNodes
    If n.Nodes.Count = 0 Then
        Dim arr() As String = n.FullPath.Split("\")
        If arr.length = 4 Then
            dr = DataTables("窗口控件管理").AddNew
            'dr("根目录") = arr(0)
            'dr("子目录") = arr(1)
            dr("窗口名") = arr(2)
            Dim btn() = arr(3).split("|")
            If btn.length = 2
                dr("按扭名") = btn(0).trim
                dr("标题") = btn(1).trim
            Else
                dr("按扭名") = arr(3)
            End If
        ElseIf arr.length = 3
            dr = DataTables("窗口控件管理").AddNew
            'dr("根目录") = arr(0)
            'dr("子目录") = Nothing
            dr("窗口名") = arr(1)
            Dim btn() = arr(2).split("|")
            If btn.length = 2
                dr("按扭名") = btn(0).trim
                dr("标题") = btn(1).trim
            Else
                dr("按扭名") = arr(2)
            End If
        End If
    End If
Next

老师太感谢了！