[已解决]如何用递归来做一个遍历树

nstxdyd · 发表于 2013-2-19 19:12

本帖最后由 nstxdyd 于 2013-2-20 19:43 编辑

遇到一个心烦的问题，具体描述如下图：

郁闷。。。一天了这问题都还没搞定，是我表达有问题？

就是想对父ID 和 ID 两列进行遍历，然后输出长短不一的遍历树。

附件是EXCEL表格。。

我做的这个详细描述2图左边是父子关系表，共19行关系。右边是我根据左边19个关系做出来的表。另外用三色框特别描述出了其中的一套关系。希望大家看得明白。

又加了一个树形结构图，希望表达更清晰些。。。

最佳答案

月排行榜 / 总排行榜

爱疯

2013-2-21 10:56

Dim z As Object '子key，父item。用于递归时的查询
Sub test()
Dim f As Object '父key。只在收集叶子时的查询
Dim A(), B(), i%, j%
A = Range("a1").CurrentRegion.Value
Set f = CreateObject("scripting.dictionary")
Set z = CreateObject("scripting.dictionary")
'建字典，收叶子
For i = 2 To UBound(A)
f(A(i, 1)) = A(i, 2)
z(A(i, 2)) = A(i, 1)
Next i
For i = 2 To UBound(A)
If f.exists(A(i, 2)) = False Then
j = j + 1: ReDim Preserve B(1 To j): B(j) = A(i, 2)
End If
Next i
'找出每个叶的关系
For i = 1 To UBound(B)
B(i) = dg(B(i))
Next i
Columns(5).Clear
[f1].Resize(i - 1) = Application.Transpose(B)
End Sub
Function dg(yz) 'yz表示叶子，也是相对他的父亲来说的。
If z.exists(z(yz)) Then '判断此子的父是不是子
dg = dg(z(yz)) & " > " '父居左的关系字符串
Else
dg = z(yz) & " > " '到顶端了
End If
dg = dg & yz
End Function

复制代码

(, 下载次数: 103)

nstxdyd · 发表于 2013-2-19 19:13

如果不用SQL 而是通过VBA的效果进行操作，如何实现将多层级的父子孙等等层级关系逐行输出到sheet2？

nstxdyd · 发表于 2013-2-20 10:02

求高手指点下啊。。。完全没头绪

nstxdyd · 发表于 2013-2-20 13:58

。。。。难道这个题目太难了？

Select · 发表于 2013-2-20 14:15

不懂题目是要做什么。

楼主能模拟实现后的效果吗？
如果不方便，那用几十行或更少数据，能体现吗？

djyjysxxs · 发表于 2013-2-20 15:00

楼主没示例清楚
树遍历有先根后根之别，子树还是有顺序
你的示例是怎么的？

nstxdyd · 发表于 2013-2-20 16:31

大家好，我又来了。由于上班，不能一直盯着论坛。自己看了下自己之前的描述，确实可能不够详细，所以我重新描述了下，并举了个例子。
希望大家能看得明白。

Select · 发表于 2013-2-20 17:06

对于7楼
1）结果是针对数据源为a3:b20的吗？

2）为什么结果只12行？是不是说只有12种可能

3）结果说‘可能还有其它列’。也许数据源仍多了，使得你不能模拟完整结果。前面也提过，能否再少点数据，就为看到完整效果，好理解规律。

nstxdyd · 发表于 2013-2-20 17:37

1.是的。“期望结果表” 所看到的是仅针对数据源 a3:b20;
2.之所以结果只有12行，是因为针对左表的父子关系只能列出这12行啊。。。

nstxdyd · 发表于 2013-2-20 17:38

3.之所以说还有其他列，是因为我的数据源不只有这 a3：b20 这么点点。。可以看我之前上传的文件，有四千多行。

		自动登录	找回密码
密码			注册

[已解决]如何用递归来做一个遍历树

相关帖子