【Access小品】越俎代庖 --- 递归函数示例

13601812106_01

请问todaynew大师在子窗体中，怎么按照递归的直接层别排序。建个临时表，想了半天，也搞不出，能否做个例子，达到如下效果

层次 族人代码 世代 姓名 关系
4 20226 24 杨云 长子
5 20228 25 杨琳 长女
5 20229 25 杨琼 次女
5 20230 25 杨泽 之子
4 20227 24 刘菊 配
4 20231 24 杨妹 之女
4 20232 24 杨许 次子
5 20234 25 杨鹏顺 之子
4 20233 24 曾艳 配

13601812106_01

todaynew 大师，改写的代码也那么优美，真应开个专栏，让更多的人来学习

13601812106_01

todaynew 发表于 2015-6-10 20:48
很简单嘛
1、将表中的查询标识字段的数据类型修改为文本型；

todaynew大师，可以再改造一下吗，目的是输入方便：
1,把一张表，分为两张，一为族人表，二为族人信息表，
2族人信息表中，没有父代码为空的。
3’树控来源为族人表，子窗体来源于族人信息表
附件中，我已做好，就是不知道怎么改，这方面实在太差