Вывести сумму в заголовке группы
Подскажите пожалуйста примерную последовательность действий как можно вывести сумму по группе в заголовке группы?
Никак не могу понять как это можно сделать.
Заранее, спасибо!
Никак не могу понять как это можно сделать.
Заранее, спасибо!
Комментарии
int i;
TStringList List1;
void ReportOnStartReport(TfrxComponent Sender)
{
List1 = TStringList.Create();
}
void ReportOnStopReport(TfrxComponent Sender)
{
List1.Free();
}
void Page1OnBeforePrint(TfrxComponent Sender)
{
i = 0;
}
void Memo25OnAfterData(TfrxComponent Sender)
{
List1.Add(VarToStr(Memo25.Memo.Text));
}
void GroupHeader1Memo2OnAfterData(TfrxComponent Sender)
{
if (Engine.FinalPass)
{
GroupHeader1Memo2.Memo.Text = list1;
}
}
void ReportSummary1OnAfterPrint(TfrxComponent Sender)
{
i=0;
}
Мемо25 - то мемо, по которому надо суммировать.
GroupHeader1Memo2 - мемо в GroupHeader, в которую надо записать сумму