求助目录树的几个问题,虽然都翻到了坛子里面有类似答疑,但还是不得要领。
一是目录树节点有重复的,如何处理?
我的是标准代码:
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
三是如何自动刷新目录树
需要刷新的情况有
增删改行;或修改“ 使用对象”;或修改“ 模板类别”,都需要刷新的。
是定时刷新好呢,还是手工再写一遍加载目录树公示?