Office中国论坛/Access中国论坛

标题: 求教一个累加的问题 [打印本页]

作者: efcndi 时间: 2012-2-23 08:13
标题: 求教一个累加的问题
本帖最后由 efcndi 于 2012-2-23 08:15 编辑

求教一个累加的问题，如何实现这种累加效果，排序后正负数分别累加，效果如下放表格。
原数据累加
-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

作者: 轻风 时间: 2012-2-23 09:45
见查询1，可能稍复杂些，抛砖引玉，求更简化的方法。

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

复制代码

作者: efcndi 时间: 2012-2-23 11:40
谢谢轻风。

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

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

作者: 轻风 时间: 2012-2-23 14:15

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

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

作者: 轻风 时间: 2012-2-23 14:17

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

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

作者: efcndi 时间: 2012-2-24 08:04
本帖最后由 efcndi 于 2012-2-24 08:36 编辑

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)