- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 目录树重复以及数量问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=39869)
-- 发布时间：2013/9/3 15:36:00
-- 目录树重复以及数量问题
求助目录树的几个问题，虽然都翻到了坛子里面有类似答疑，但还是不得要领。
一是目录树节点有重复的，如何处理？
我的是标准代码：
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("模板库", "使用对象|模板类别","","使用对象ID")
trv.Nodes.Insert("显示所有行",0)
此主题相关图片如下：1.jpg
二是我在窗口Afterload加入节点数量后，就不能单击节点筛选了，按理应是nodename 的语句写法问题，但不太懂，请高手示意！
以下代码是高手出的，来自 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=24359&authorid=0&page=0&star=2
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Nodes.Count > 0 Then
If nd.Nodes.Count = nd.AllNodes.count Then
nd.text = nd.text & "(" & nd.nodes.count &")"
Else
Dim Endjd As Integer = 0
For Each nd1 As winform.treenode In nd.allnodes
If nd1.nodes.count = 0 Then
endjd = endjd +1
End If
Next
nd.text = nd.text & "(" & nd.nodes.count &"|" & Endjd &")"
End If
End If
Next
If nd.Nodes.Count > 0 Then
If nd.Nodes.Count = nd.AllNodes.count Then
nd.text = nd.text & "(" & nd.nodes.count &")"
Else
Dim Endjd As Integer = 0
For Each nd1 As winform.treenode In nd.allnodes
If nd1.nodes.count = 0 Then
endjd = endjd +1
End If
Next
nd.text = nd.text & "(" & nd.nodes.count &"|" & Endjd &")"
End If
End If
Next
三是如何自动刷新目录树
需要刷新的情况有
增删改行；或修改“ 使用对象”；或修改“ 模板类别”，都需要刷新的。
是定时刷新好呢，还是手工再写一遍加载目录树公示？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:文件文类管理.foxdb |
-- 发布时间：2013/9/3 16:01:00
--
参考一下这里吧 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=39094&authorid=0&page=0&star=1
刷新用手动刷新吧
-- 发布时间：2013/9/3 17:05:00
--
节点主要有三个属性，名称，标题，图片，这些在帮助中都有。
一般将后期删选条件放在名称中；将展示字符（包括合成字符）放在标题中，你上面的只要在原有的基础上再增加一个标题就可以了。
传回的文件是其他的一种方法，供参考。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:文件文类管理.foxdb |
[此贴子已经被作者于2013-9-4 7:53:32编辑过]