会计科目整理成树形结构

那些年松雅湖畔

　　论坛的各位师傅，晚上好，我在实务中碰到这样一个难题：

就是要将图1所示的原始数据，整理成为图2所示的数据结构，会计科目之间存在父子关系。
　　我最终的目的是根据图2所示的数据，构建一个树形结构，以便快速录入会计科目。
请问各位师傅，如何写vba代码呢？先感谢各位师傅！

蓝桥玄霜

新建一个窗体，插入treeview控件，录入代码，执行即可。

micch

WPS的数据有效性支持模糊搜索，输入关键词就能搜索列表，基本能满足快速录入科目的目的了

zpy2

//select * from 会计科目整理成父子结构 limit 3;
create temp table aa as
select iif(length(科目代码)=4,'ROOT',substr(科目代码,1,length(科目代码)-3)) 父,科目代码 子,科目名称 Child from 会计科目整理成父子结构;
select iif(会计科目整理成父子结构.科目名称 is null,'ROOT',会计科目整理成父子结构.科目名称) Patent,Child,子 from aa left join 会计科目整理成父子结构 on 父=科目代码;


科目整理

https://club.excelhome.net/forum.php?mod=viewthread&tid=567518&extra=&mobile=
科目代码输入

micch

zpy2

zpy2 发表于 2023-7-17 10:20
//select * from 会计科目整理成父子结构 limit 3;
create temp table aa as
select iif(length(科目代 ...

【移动端树形选择复制-哔哩哔哩】 https://b23.tv/PkWn5eT

zpy2

zpy2 发表于 2023-7-17 10:20
//select * from 会计科目整理成父子结构 limit 3;
create temp table aa as
select iif(length(科目代 ...

【移动端树形选择复制-哔哩哔哩】 https://b23.tv/PkWn5eThttps://b23.tv/PkWn5eT

那些年松雅湖畔

micch 发表于 2023-7-17 11:10

感谢师傅帮助，如果全部叶子节点加上科目编码，类似这样：CT32A4+1243002001，该如何设计呢？

micch

那些年松雅湖畔 发表于 2023-7-17 13:43
感谢师傅帮助，如果全部叶子节点加上科目编码，类似这样：CT32A4+1243002001，该如何设计呢？

nm 是科目名称，需要显示代码+名称，可以把 nm 改一下

nm= ar(i,1) & "+" & ar(i,2)

那些年松雅湖畔

蓝桥玄霜 发表于 2023-7-17 10:06
新建一个窗体，插入treeview控件，录入代码，执行即可。

感谢蓝版帮助，经测试，发现一个小问题，就是全部节点都携带了科目编码，而我实际应用中只需叶子节点携带科目编码即可，这可能是个小坑。