求高效率TreeView算法,TreeView高手进

[maskdata]

树结构如下:
1-|-5
|-6

2-|-7
|-8-|-13
| |-14
|
|-9-|-15

3-|-10
|-11-|-16-|-17
| |-18
|-12 |-19
|-20

简单说一下吧,index是从第一级开始的,也就是说我是先把主集添加好才添加子集的
但是我现在需要的是从第一级开始取,如果有子类就取子类,没子类就取下一个
也就是说,先取1,再取5,再取6,因为没有子集了所以取2
然后取7,取8.取13,取14,取9,取15,取3,取10,取11,取16,取17,取18,取19,取20,取12
不知道大家看明白了没有

[maskdata]

最好是高效率的方法,因为我现在找到一种办法,但是效率太低了

[zhengoodman]

如果数据库是oracle就很好解决。不知你用什么数据库？

[viena]

分级编码作为节点的Key，不知道可不可以？
比如：
a-|-aa
|-ab

b-|-ba
|-bb-|-bba
| |-bbb
|
|-bc-|-bca

c-|-ca
|-cb-|-cba-|-cbaa
| |-cbab
|-cc |-cbac
|-cbad

[maskdata]

我的key是没办法设置规律的,如果能设置规律也就好办了
请以我的树结构为基础考虑,谢谢

[cool_man]

我有个方法不过取法不一样，不知道行不行先贴给你看看
Private Function SearchChildNod(curNod As Node) As String
Dim i As Long
Dim oNode As Node
Dim oNode2 As Node
If curNod.Children > 0 Then

Set oNode = curNod.Child
For i = 1 To curNod.Children

SearchChildNod = SearchChildNod + oNode.Text + vbCrLf
Set oNode2 = oNode
If oNode2.Children > 0 Then
SearchChildNod = SearchChildNod + SearchChildNod(oNode2)
End If
Set oNode = oNode.Next
Next
' Set oNode = curNod.Child
' SearchChildNod (oNode)
End If



End Function

[cool_man]

好象就是你要的，哈哈