如何实现家谱垂丝图(吊线图)

付谦 · 发表于 2021-4-24 20:51:10

本帖最后由付谦于 2021-4-25 14:14 编辑

现在的树是横式的,但家谱习惯是垂丝图(或叫吊线图),也不是宝塔图,在网上都是些手动制作垂丝图(或叫吊线图)操作,几万记录要做完要多长时间,还要人工校对,一旦有变动,前功尽失,本人知识太少,因此向各位大师们恳求自动生成家谱垂丝图(吊线图)代码,无论是用窗体.报表或WORD,EXCEL都行,只要能达到附件上注的效果.谢谢!

付谦 · 发表于 2021-4-25 20:19:02

本帖最后由付谦于 2021-4-25 20:40 编辑

能有这样效果也行,可能代码简单些:---------------------------------------------------------------------------------------------------------------------　
一世　　　二世　　　　三世　　四世　　五世　.........　　　　　　　　　　　八世
杨一益 ──ο 杨子吕 ─┯─ο 杨银　
├─ ο 杨发 ──ο 杨式　................
　　　　　　　　　 ├─ ο 杨伟 ──ο 杨再　................

付谦 · 发表于 2021-4-26 16:05:31

ASLXT大师真厉害,知识广,乐助人!
代码经运行好用,虽然过去没有接触visio,抓紧学习,在大师的基础上再细化一下,完全满足所需.

付谦 · 发表于 2021-4-26 20:07:00

大师:
　　发现一个问题,按条件只有8世,但有时出现18世,不知从何而来,查这次的数据源也只有8世,多的是过去曾使用过的数据,承上码在8世内.我分析是visio系统或内存中保存有永久数据,只要对上自动连接上了.我不知系统或内存数据如何清除.加了 Set Rec = Nothing不管用,请教如何处理?

付谦 · 发表于 2021-4-27 09:34:23

按照大师指明的方向,我在递归过程代码中找出有一个表名没改,程序不断调用此表数据,现在正常了,速度比前也快了

付谦 · 发表于 2021-4-27 13:56:04

递归过程代码中,表名有一处未改所致

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

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 如何实现家谱垂丝图(吊线图)

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)