- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]目录树 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142622)
-- 发布时间：2019/11/1 15:25:00
-- [求助]目录树
老师谢谢你，判断窗口是否关闭搞好了。现在我想设置成这样的目录树，控件在选定时用以识别。自己搞不好。
此主题相关图片如下：目录树.png
-- 发布时间：2019/11/1 15:44:00
--
代码！项目！
-- 发布时间：2019/11/1 18:21:00
--
老师好
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:目录树.rar |
-- 发布时间：2019/11/1 20:32:00
--
没看到有做了什么。如果要遍历控件，参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=85400
-- 发布时间：2019/11/1 21:26:00
--
此主题相关图片如下：目录树.png
此主题相关图片如下：image 5.png
-- 发布时间：2019/11/1 21:57:00
--
添加一个表达式列，列名“名称标题”，表达式为：[按扭名] + \'|\' + [标题]
然后
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("窗口控件管理","窗口归类|窗口名1|窗口名|名称标题")
-- 发布时间：2019/11/2 8:37:00
--
老师好，下面代码搞不好。怎样修改。
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|窗口名|按扭名")
-- 发布时间：2019/11/2 9:12:00
--
cmd.CommandText = "SEL ECT 窗口归类,窗口名1,窗口名,按扭名 + \'|\'+ 标题 as 按扭名 From {窗口控件管理}"
-- 发布时间：2019/11/2 11:04:00
--
老师好，“窗口名”列有的单元格是空的导致按钮名不显示了。
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|窗口名|按扭名")
-- 发布时间：2019/11/2 11:09:00
--
很正常啊，窗口都没有，哪来的按钮？补上窗口名