如何在datareport中实现每页的小计***在线等待****

[kingbear2000]

我有一数据表其中有一数据段：
如：
单据号码 实收数量
如何在每一页中实现对实收数量的合计。
并且在最后一计实现总计

[chenyu5188]

在数据环境设计器中创建分组。

[kingbear2000]

如何实现，我只想计算出这一页的合计数

[kingbear2000]

即每页的小计数

[yaoylguest]

up

[nebular]

在PAGEFOOTER中增加统计字段FUNCTION TEXTBOX（SUM），在REPORTFOOTER增加统计字段，也是FUNCTION TEXTBOX（SUM）。不必建立分组。

[nebular]

datafield都设为实收数量

[kingbear2000]

大家都误解了我的意思，我是要每一页的小计数，再加最后一页的总计

[TT008]

datareport没有这个功能
只能用标签
在程序中用代码去计算好
再将值给予标签

[kingbear2000]

楼上的兄弟，请问如果实现可以给段例子吗？马上给分

[kingbear2000]

静候佳音！

[TT008]

可以
不过
我用这个办法实现的是税务报表的定点打印
每打印一张就要按一下打印按钮

[TT008]

Dim HSS As String

HSS = Val(DataReport1.Sections("DT1").Controls("SS1").Caption) + Val(DataReport1.Sections("DT1").Controls("SS2").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS3").Caption) + Val(DataReport1.Sections("DT1").Controls("SS4").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS5").Caption) + Val(DataReport1.Sections("DT1").Controls("SS6").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS7").Caption) + Val(DataReport1.Sections("DT1").Controls("SS8").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS9").Caption) + Val(DataReport1.Sections("DT1").Controls("SS10").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS11").Caption) + Val(DataReport1.Sections("DT1").Controls("SS12").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS13").Caption) + Val(DataReport1.Sections("DT1").Controls("SS14").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS15").Caption) + Val(DataReport1.Sections("DT1").Controls("SS16").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS17").Caption) + Val(DataReport1.Sections("DT1").Controls("SS18").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS19").Caption) + Val(DataReport1.Sections("DT1").Controls("SS20").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS21").Caption) + Val(DataReport1.Sections("DT1").Controls("SS22").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS23").Caption) + Val(DataReport1.Sections("DT1").Controls("SS24").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS25").Caption) + Val(DataReport1.Sections("DT1").Controls("SS26").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS27").Caption) + Val(DataReport1.Sections("DT1").Controls("SS28").Caption) + _
Val(DataReport1.Sections("DT1").Controls("SS29").Caption) + Val(DataReport1.Sections("DT1").Controls("SS30").Caption)

这只是标签的合计
你还要把数据的值赋给标签
语句如下:
DataReport1.Sections("DT1").Controls("HS1").Caption = Adodc1.Recordset.Fields(1)

[kingbear2000]

能实现在程序中动态改变吗，产生每页的小计，例如这页所有某字段的和

[kingbear2000]

哪就是说要事先自已设定每页显示的记录数或者是超过了每页设定的高度之后才可以读出此数。

[kingbear2000]

楼上的兄弟你所说的是用pcl语言或是printer对象是吗？

[TT008]

用VB的DATAREPORT实现
PRINTER也可以但想实现预览比较难