如何实现查询结果的逐项累加？Henry D. Sy，ACMAIN_CHM 两位高手已解决！

mybreeze

小弟目前在工作中遇到一个难题，上来请教各位高手们帮我解惑！

有这么一张表

序号	不合格项目	数量
1	外观	45
2	功能	63
3	功能	25
4	外观	34
5	外观	7
6	外观	6
7	安全	58
8	功能	5
9	安全	76
10	功能	8
11	轻微	1

经过分类查询之后，结果如下：

不合格项目	quantity	ratio
安全	134	40.85%
功能	101	30.79%
外观	92	28.05%
轻微	1	0.30%

但是我的老板提出了一个很变态的要求，即要求对分类的结果要求能够自动逐项累加。老板要求的自动查询结果如下：

不合格项目	quantity	add up	ratio
安全	134	134	40.85%
功能	101	235	71.64%
外观	92	327	99.70%
轻微	1	328	100%

我实在是没有办法实现上面这个结果，请教各位大大啦！

mybreeze

如果能够直接用SQL来实现，在效率差不多的情况下一般是应该选择由SQL查询来完成。

select a.不合格项目,a.qty,sum(b.qty) as addup,sum(b.qty)/c.qty as ratio
from (select 不合格项目,sum(数量) as qty from s ...
ACMAIN_CHM 发表于 2009-2-25 08:48

这位大大的查询写的真是牛！可是我理解能力有限，没有看懂那句inner join

查询a和查询b都定义成一样的，然后on后面的条件竟然让查询b变成了我要的逐项累加，实在是不可思议！

大大能帮我解一下惑么？有了解答但是看不懂可真难受！

asklove

例子收藏先

ly

是这样的，我是从事质保工作的，在我们的质量工具里面有一个柏拉图的概念，即做图找出占80％的重大影响因素，余下的占缺陷20%的次要因素可以暂不解决，重点解决影响质量问题的主要因素

所以才需要用到累加百分 ...
mybreeze 发表于 2009-2-25 00:17

学习了，看来本人知识面太狭窄了！

ACMAIN_CHM

如果能够直接用SQL来实现，在效率差不多的情况下一般是应该选择由SQL查询来完成。

select a.不合格项目,a.qty,sum(b.qty) as addup,sum(b.qty)/c.qty as ratio
from (select 不合格项目,sum(数量) as qty from sheet1 group by 不合格项目) a
   inner join (select 不合格项目,sum(数量) as qty from sheet1 group by 不合格项目) b
   on (a.qty<b.qty or (a.qty=b.qty and a.不合格项目<=b.不合格项目))
,(select sum(数量) as qty from sheet1) c
group by a.不合格项目,a.qty,c.qty
order by a.qty desc





******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

chenwm1973

受教了！

mybreeze

感谢斑竹这么快就给出了解决方案！受教了！

Henry D. Sy

1. Public Function gSum(Qty As Long) As Long
   
2.     Dim rs As New ADODB.Recordset
   
3.     Dim strSQL As String
   
4.     Dim tempQty As Long
   
5.     strSQL = "select quantity from f where quantity>=" & Qty & " order by quantity "
   
6.     rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
   
7.     Do While Not rs.EOF
   
8.         tempQty = tempQty + rs.Fields(0)
   
9.         rs.MoveNext
   
10.     Loop
    
11.     gSum = tempQty
    
12.     rs.Close
    
13.     Set rs = Nothing
    
14. End Function

复制代码

1. SELECT F.不合格项目, F.quantity, gSum([quantity]) AS AddUP
   
2. FROM F;
   

复制代码

mybreeze

1# mybreeze  


我觉得，access可以做到你的功能。但是从实际工作中，不同的不合格项目的数量相加是没有意义的，更不要说把比率也相加了。如果是金额倒是可以相加的。这可是题外话了。
ly 发表于 2009-2-25 00:10

是这样的，我是从事质保工作的，在我们的质量工具里面有一个柏拉图的概念，即做图找出占80％的重大影响因素，余下的占缺陷20%的次要因素可以暂不解决，重点解决影响质量问题的主要因素

所以才需要用到累加百分比来说明问题，占不良原因前80%的问题我们都是要立项解决的

ly

1# mybreeze


我觉得，access可以做到你的功能。但是从实际工作中，不同的不合格项目的数量相加是没有意义的，更不要说把比率也相加了。如果是金额倒是可以相加的。这可是题外话了。