【SQL查询】vba如何通过SQL计算每一行的数值占比？

microyip

cui26896 发表于 2020-2-13 17:30
运行老师的代码与原来一样，没有变化。

你觉得每个客户只有一个，能有什么变化？

cui26896

microyip 发表于 2020-2-13 18:21
你觉得每个客户只有一个，能有什么变化？

这问题是提问人造成的，我看他的附件，就对不上来。

amazeyeli

1. USE tempdb
   
2. GO
   
3. IF OBJECT_ID('test') IS NOT NULL
   
4.   DROP TABLE test;
   
5. GO
   
6. CREATE TABLE test
   
7. (
   
8.   科目代码 varchar(10),
   
9.   科目名称 nvarchar(8),
   
10.   本年借方累计 money,
    
11.   父级代码 varchar(10)
    
12. );
    
13. GO
    
14. INSERT INTO test VALUES
    
15. ('1122.01','应收检测服务费',4985.5,'1122'),
    
16. ('1122.01.01','[06]饮片厂',0,'1122.01'),
    
17. ('1122.01.02','[07]黄生',1975,'1122.01'),
    
18. ('1122.01.03','[19]孟先生',463,'1122.01')
    
19. GO
    
20. ----------------------------------------
    
21. select * from test
    
22. /*
    
23. 科目代码        科目名称        本年借方累计        父级代码
    
24. 1122.01        应收检测服务费        4985.50        1122
    
25. 1122.01.01        [06]饮片厂        0.00        1122.01
    
26. 1122.01.02        [07]黄生        1975.00        1122.01
    
27. 1122.01.03        [19]孟先生        463.00        1122.01
    
28. */
    
29. ----------------------------------------
    
30. select a.*,b.本年借方累计 as 父级本年借方累计,a.本年借方累计/b.本年借方累计 as 本年占比
    
31. from test as a
    
32. join test as b
    
33. on a.父级代码=b.科目代码
    
34. union all
    
35. select a.*,b.本年借方累计 as 父级本年借方累计,a.本年借方累计/b.本年借方累计 as 本年占比
    
36. from test as a
    
37. join (select left(科目代码,4) as 科目代码,'应收帐目' as 科目名称,sum(本年借方累计) as 本年借方累计  from test group by left(科目代码,4)) as b
    
38. on a.父级代码=b.科目代码
    
39. ----------------------------------------
    
40. /*
    
41. 科目代码        科目名称        本年借方累计        父级代码        父级本年借方累计        本年占比
    
42. 1122.01.01        [06]饮片厂        0.00        1122.01        4985.50        0.00
    
43. 1122.01.02        [07]黄生        1975.00        1122.01        4985.50        0.3961
    
44. 1122.01.03        [19]孟先生        463.00        1122.01        4985.50        0.0928
    
45. 1122.01        应收检测服务费        4985.50        1122        7423.50        0.6715
    
46. */
    

复制代码

stevefigo

两位老师好@microyip @cui26896
其实我想表达的意思是，应收账款=N个业务收入总和，各个业务有若干个客户贡献收入，现只是需要对每个业务的客户收入做占比及降序排列。
由于财务系统中已经将“应收账款”、“每个业务的收入合计”、“每个客户每种业务收入的合计”均已有数据了，只是客户收入未按在各业务中列示占比及降序排列。故理应不需要做客户的分类汇总（如groupby这种，因为它可能会不分业务直接汇总而不符合使用者需求），而是需要用其他方法处理（我不懂还有什么，除了另外设一个数组循环，但担心速度慢）

@amazeyeli 老师的代码不是很懂怎么嵌套进vba中，抱歉不明白噢

@shenjianrong163 的老师能符合我的需求，但为什么我添加一行原始数据后再执行，缺不能完整显示出来呢？谢谢

stevefigo

shenjianrong163 发表于 2020-2-13 17:15
加一个数组计算一下：

谢谢老师，能符合需求，但为什么我添加一行原始数据后再执行，缺不能完整显示出来呢？谢谢

stevefigo

microyip 发表于 2020-2-13 17:16

老师好，感觉不行呢。
其实原始数据来自财务系统，已有一定的加工了：应收账款=N个业务收入总和，各个业务有若干个客户贡献收入，现只是需要对每个业务的客户收入做占比及降序排列。
由于财务系统中已经将“应收账款”、“每个业务的收入合计”、“每个客户每种业务收入的合计”均已有数据了，只是客户收入未按在各业务中列示占比及降序排列，也就是我的所需呢。