Office中国论坛/Access中国论坛

标题: 报表合计的问题,请大家帮忙解决一下 [打印本页]

作者: gzkrmch 时间: 2012-3-8 17:08
标题: 报表合计的问题,请大家帮忙解决一下
我想合计每条记录的小计,但合计出不了数,希望能帮忙解决一下,谢谢!

作者: roych 时间: 2012-3-8 21:24
1、使用计算功能时不能引用报表自定义字段（例如里面的“实际借款月数”、“按月还款合计”等等），而是要用数据源中的字段才能统计。
2、如果已经有统计字段了，那么可以引用这个统计字段。例如 Text1=Sum([金额])，Text2=[Text1]。——需要注意的是，这里的Text2并没有对Text1进行计算，只是引用而已。
讲完这两个声明之后，我们现在开始解题：
第一个空：
=Sum([月利息]*[还款金额]*CLng(DateDiff("m",[借款时间],[实际还款日期])+1))
第二个空：
=Sum([还款金额]*[月利息]*CLng(DateDiff("m",[借款时间],[实际还款日期])+1)+[还款金额]+NZ([实际利息],0))
第三个空：
=Sum(NZ([还款金额],0)*NZ([日利息],0)*CLng([实际还款日期]-[借款时间]))
最后一个空：
…………
这个是作业，交给楼主自己思考。不懂之处请参考上面三个空。

作者: gzkrmch 时间: 2012-3-9 08:31
本帖最后由 gzkrmch 于 2012-3-9 08:40 编辑

roych 发表于 2012-3-8 21:24
1、使用计算功能时不能引用报表自定义字段（例如里面的“实际借款月数”、“按月还款合计”等等），而是要用 ...

谢谢roych 老师,真的太感谢了{:soso_e112:}

作者: JosephTan 时间: 2012-3-9 14:14
本帖最后由 JosephTan 于 2012-3-9 17:17 编辑

roych 发表于 2012-3-9 00:24
1、使用计算功能时不能引用报表自定义字段（例如里面的“实际借款月数”、“按月还款合计”等等），而是要用 ...

不一定要用数据源，查询也可以用。
比如我的这个模块：
Option Compare Database
Option Explicit
Function TextboxRefresh()

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim MyQuery As String

Set db = CurrentDb
MyQuery = "SELECT Sum(金额) AS 金额合计 FROM (SELECT Sum([订货详情].[数量]*[订货详情].[单价]) AS 金额 FROM 发票 INNER JOIN 订货详情 ON 发票.单号 = 订货详情.单号 GROUP BY 订货详情.单号, 发票.签单日期, 发票.barcode, 发票.客户ID, 发票.已收 HAVING (((发票.签单日期)=Date())));"

Set rst = db.OpenRecordset(MyQuery, dbOpenDynaset)

Form_发票.Text133 = rst![金额合计]

rst.Close
Set rst = Nothing
Set db = Nothing

End Function

作者: gzkrmch 时间: 2012-3-12 11:37

JosephTan 发表于 2012-3-9 14:14
不一定要用数据源，查询也可以用。
比如我的这个模块：
Option Compare Database

再次学习,再次感谢大家的热心帮助

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