如何在activereports 中实现每页合计，

[IntoPython]

在最后一页上没有本页合计，而是全部合计！谢谢

[IntoPython]

up

[IntoPython]

有没有更简便的方法?

[13161795500]

up

[amolucky]

在报表上设置两个数 一个每页开始时清零 另一个一直累加

[fullor2000]

他有两个参数只要设置一下，很简单的。

[IntoPython]

麻烦fullor2000(兽子)指教！

[mndsoft]

补充以下：
Fieldx.SummaryFunc=11
Fieldx.SummaryRunning=2
Fieldx.SummaryType=1

[2003kingbear]

期待同样结果望兽子指教

[xinjiana]

期待

[mndsoft]

你先在PageFoot中增加一个Fieldx把Visible=False,在程序的开头定义一个Boolean

Dim LastPage As Boolean

然后再读取数据过程中：

Private Sub ActiveReport_FetchData(eof As Boolean)
LastPage = SgkRec.Recordset.eof
End Sub

最后在PageFooter_Format中检查LastPage
Private Sub PageFooter_Format()
If LastPage Then
Fieldx.Visible = True
End If
End Sub

此思路应该可以解决吧！

[IntoPython]

谢谢mndsoft(枕善居主)，我试一下

[2003kingbear]

为什么数据都是0,而且最后一页没有显示此数据

[IntoPython]

up

[mndsoft]

Fieldx.DataField=字段名