替朋友提问：如何实现按页统计？

[TopCat]

我一个朋友问我一个问题，是关于报表的，他想实现在每页上打印该页所有记录的金额统计，但是似乎没有直接的实现方法。还有，他想实现“共x页”的功能，好像也不好实现。

因为我自己没有做过数据库打印方面的工作，对此一窍不通，所以在这里提问，希望大虾们多多援手。

[TopCat]

up

[houzy123]

1.每页合计
原来我解答过此类问题,现再说一遍
1.对各统计项添加变量,例如基本工资jb_sheet,奖金jj_sheet
2.代码
__fastcall TListForm::TListForm(TComponent* Owner)
: TForm(Owner)
{
jb_sheet=0;初始化数据
jj_sheet=0;
}
//-----------------------------
void __fastcall TListForm::QRDBText5Print(TObject *sender,
AnsiString &Value)
{
jb_sheet+=StrToInt(Value);统计基本工资
}
//---------------------------------------------------------------------------
void __fastcall TListForm::QRDBText6Print(TObject *sender,
AnsiString &Value)
{
jj_sheet+=StrToInt(Value);统计奖金
}
//---------------------------------------------------------------------------
void __fastcall TListForm::PageFooterBand1BeforePrint(
TQRCustomBand *Sender, bool &PrintBand)
{
QRLabel8->Caption=IntToStr(jb_sheet);打印基本工资
QRLabel9->Caption=IntToStr(jj_sheet);打印奖金
}
//---------------------------------------------------------------------------

void __fastcall TListForm::PageFooterBand1AfterPrint(TQRCustomBand *Sender,
bool BandPrinted)
{
jb_sheet=0;下一页初始化数据
jj_sheet=0;
}
//-----------------------------------

[houzy123]

每页的行数20,多少页算出来了吧
__fastcall TListForm::TListForm(TComponent* Owner)
: TForm(Owner)
{
xx=1;
}
//---------------------------------------------------------------------------
void __fastcall TListForm::DetailBand1AfterPrint(TQRCustomBand *Sender,
bool BandPrinted)
{
if(xx<20)
xx++;
else
{
xx=1;
QuickRep->NewPage();
}
}
//---------------------------------------------------------------------------

[houzy123]

若要fastreport的我也有

[TopCat]

多谢多谢，明日结帖~

[yydy]

gz

[xu_xinyu]

我觉得要根据每页打多少条记录来确定。
分别计算每页的合计再打印。

抛砖引玉。

[TopCat]

多谢回复，等待更详细的答案。