求教一个累加的问题

efcndi

求教一个累加的问题，如何实现这种累加效果，排序后正负数分别累加，效果如下放表格。
原数据        累加
-7        -16
-5        -9
-3        -4
-1        -1
1        1
2        3
3        6
4        10
5        15
6        21
7        28
8        36
9        45
10        55
11        66

轻风

见查询1，可能稍复杂些，抛砖引玉，求更简化的方法。

1. SELECT 原数据.原数据, DSum("-1*[原数据]*([原数据]<0)","[原数据]","[原数据] >=" & [原数据])+DSum("-1*[原数据]*([原数据]>0)","[原数据]","[原数据] <=" & [原数据]) AS 累加
   
2. FROM 原数据;

复制代码

efcndi

谢谢轻风。

efcndi

再问一下用VBA如何实现呢，因为数据不是表里的，是计算得来的。

efcndi

还有，当数据有相同数据的时候，累加的结果不正确。

轻风

efcndi 发表于 2012-2-23 11:42
再问一下用VBA如何实现呢，因为数据不是表里的，是计算得来的。

你得举个例，怎么计算得来的。

轻风

efcndi 发表于 2012-2-23 12:20
还有，当数据有相同数据的时候，累加的结果不正确。

当然，你必须有个可排序的、唯一的识别字段。

efcndi

谢谢轻风了，呵呵，不用VBA就用查询也行，我又加了个自动编号。十分感谢。