[浏览完整版]
标题：目录树设置
1楼
明丰 发表于：2011/7/16 10:03:002楼
vker8588 发表于：2011/7/16 10:48:00你的意思是在系统功能区增加一个按钮“加载树”，还是做什么？不是很明白哦？
3楼
明丰 发表于：2011/7/16 10:59:00不好意思,没说清楚.
窗口1目录树节点的列名引用"货品资料目录树设置"表的"列名"内容,"列名"内容变动节点随之变动.
4楼
狐狸爸爸 发表于：2011/7/16 11:02:00看看这个：
http://www.foxtable.net/help/topics/0917.htm
稍微改一下，就是加载树了。
也可以看看这个：
http://www.foxtable.net/help/topics/2054.htm
5楼
明丰 发表于：2011/7/16 16:12:00窗口1中
"货品资料目录树设置"表"列名" 第一行 = TreeView1 第一个节点
"货品资料目录树设置"表"列名" 第二行 = TreeView1 第二个节点
"货品资料目录树设置"表"列名" 第三行 = TreeView1 第三个节点
"货品资料目录树设置"表"列名" 第四行 = TreeView1 第四个节点
"货品资料目录树设置"表"列名" 第五行 = TreeView1 第五个节点
"货品资料目录树设置"表"列名" 第六行 = TreeView1 第六个节点
列名的值变动,点击 Button2 时节点随之变动,请问如何设置?
[此贴子已经被作者于2011-7-16 16:57:53编辑过]
6楼
狐狸爸爸 发表于：2011/7/16 16:18:00你上传的文件，都没有窗口
7楼
明丰 发表于：2011/7/16 16:57:00有呀,另传一次
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:目录树1.table |
8楼
狐狸爸爸 发表于：2011/7/16 17:07:00Dim s As String
For Each r As Row In Tables("货品资料目录树设置").Rows
s = s & "|" & r("列名")
Next
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("货品资料", s.Trim("|"))
trv.Nodes.Insert("显示所有行","显示所有行",0)
For Each r As Row In Tables("货品资料目录树设置").Rows
s = s & "|" & r("列名")
Next
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("货品资料", s.Trim("|"))
trv.Nodes.Insert("显示所有行","显示所有行",0)
9楼
明丰 发表于：2011/7/16 17:22:00请问ＴreeView1的NodeMouseClick事件如何设置？
10楼
狐狸爸爸 发表于：2011/7/16 17:28:00自己写一下吧，就当做练习，逻辑很清楚：
一层节点从货品资料目录树设置表的第一行找出列名合成表达式，二层节点从货品资料目录树设置表的第二行找出列名合成表达式，其余类推....