请教各位高手:如何求合计?

zez

附件中有一个表,要求项目小计,具体是:
表中项目为1\1.3\1.4\1.4.3四个发生额要求合计.其中,
项目1是项目1.1+项目1.2+项目1.3+项目1.4的发生额;
项目1.3是项目1.3.1+项目1.3.2+项目1.3.3的发生额;
项目1.4是项目1.4.1+项目1.4.2+项目1.4.3的发生额;
项目1.4.3是项目1.4.3.1+项目1.4.3.2+项目1.4.3.3的发生额.
我写了一个查询:
"SELECT 表1.ID, 表1.项目, 表1.发生额, 表1.上级ID, IIf((select count(*) from 表1 as A where 上级ID=表1.ID)=0,发生额,(select sum(发生额) from 表1 as A where 上级ID=表1.ID)) AS 小计 FROM 表1"
可以正确计算出项目1.4.3和1.3的合计,但无法正确项目1和1.4的合计.
请各位老师在百忙中抽时间帮看一下,应该如何写这个查询.如果用查询做不到的话,如何用VBA代码将计算结果更新到表中.
在这里先谢谢!

zhao__feng

好像要分开算,同步计算不行,2级目录的值还未计算出来,如何同时计算1级目录.

Scarlett_88

select
表1.*, 小计
FROM 表1,
(SELECT DISTINCT x1+x2+x3 AS x, 小计
FROM (select x1,x2,x3,sum(发生额) as 小计
from
(
select *, left(项目,1) as X1, mid(项目,2,2) as X2,mid(项目,4,2) as X3 from 表1
)
group by x1,x2,x3
union all
select x1,"","",sum(发生额)
from
(
select *, left(项目,1) as X1, mid(项目,2,2) as X2,mid(项目,4,2) as X3,mid(项目,6,2) as X4 from 表1
)
group by x1
union all
select x1,x2,"",sum(发生额)
from
(
select *, left(项目,1) as X1, mid(项目,2,2) as X2,mid(项目,4,2) as X3,mid(项目,6,2) as X4 from 表1
)
group by x1,x2
)
WHERE 小计>0
)
WHERE 项目=x
ORDER BY 项目

zez

谢谢版主!!!