Как вывести сумму по группе в заголовок группы

Priest

Группирую отчёт по полю. Если сумму выводить в Подвале группы, то всё работает. А если в заголовке группы, то не работает

aseroff

Кидаем обработчик на Memo, которое находится в Header'е.

void Memo1OnBeforePrint(TfrxComponent Sender)
{
  Variant vSum = 0;   // будем хранить сумму, для начала, обнуляем
  // движемся по набору данных
  for (ADOQuery1.First (); !ADOQuery1.Eof; ADOQuery1.Next())
    vSum = vSum + <ADOQuery1."ID">;   //вычисляем сумму
  ADOQuery1.First ();   //для корректного последующего отображения НД
  Memo1.Memo.Text = VarToStr (vSum); //выводим сумму в Memo
}