[求助]目录树 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师谢谢你，判断窗口是否关闭搞好了。现在我想设置成这样的目录树，控件在选定时用以识别。自己搞不好。

此主题相关图片如下：目录树.png

老师好

下载信息 [文件大小：下载次数： ]
点击浏览该文件:目录树.rar

此主题相关图片如下：目录树.png

此主题相关图片如下：image 5.png

老师好，下面代码搞不好。怎样修改。

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "SEL ECT 窗口归类,窗口名1,窗口名 as 按扭名 + '|'+ 标题 From {窗口控件管理}"

dt = cmd.ExecuteReader()

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

trv.BuildTree(dt, "窗口归类|窗口名1|窗口名|按扭名")

老师好，“窗口名”列有的单元格是空的导致按钮名不显示了。

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "SEL ECT 窗口归类,窗口名1,窗口名,按扭名 + '|'+ 标题 as 按扭名 From {窗口控件管理}"

dt = cmd.ExecuteReader()

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

trv.BuildTree(dt, "窗口归类|窗口名1|窗口名|按扭名")

老师，在窗口设计时根目录下有子目录有的没有直接是窗口了“窗口名”就是存放子目录名称的。

老师，下面是导出导入按钮代码，想要，当窗口名单元格空时复制窗口名1单元格的数据到窗口名中。谢谢老师帮忙。

DataTables("窗口控件管理").DeleteFor("")

Dim trv As WinForm.TreeView = Forms("授权表").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("窗口名1") = 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("窗口名1") = 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

ElseIf arr.length = 2

dr = DataTables("窗口控件管理").AddNew

dr("窗口名1") = arr(0)

Dim btn() = arr(1).split("|")

If btn.length = 2

dr("按扭名") = btn(0).trim

dr("标题") = btn(1).trim

Else

dr("按扭名") = arr(1)

End If

主题：[求助]目录树