Когда в PageFooter'e появляется значение COUNT()?

Комментарии

• gpi

  February 2007 отредактировано 06:09

  написал:

  Ну и что в этом случае делать?

  Внимательно почитать документацию. Обратить внимание на особенности вычисления агрегатных функций в отчёте, т.е. для вычисления агрегатной функции выражение должно присутствовать в одном из мемо
• fimont

  February 2007 отредактировано 06:09

  А оно и присутствует:
  в Memo125 (в PageFooter'e) стоит 'COUNT(MasterData1)', а в
  OnBeforePrint у Memo126 (в том же Footer'e) вписано

  procedure Memo126OnBeforePrint(Sender: TfrxComponent);
  var
    s: string;
  begin
    s :=  VarToStr ( Memo125.Value );
    if ( s <> '' ) then
      Memo126.Memo[0] := NUMSPELL ( StrToInt ( s ) );
  end;
  

  проверка на пустоту стоит не случайно, т.к. при однопроходном отчёте на первой странице с данными с 22 строчками в Memo125 выводится 22, а
  VarToStr ( Memo125.Value ) в OnBeforePrint возвращает пустую строку.
  На следующей странице с 17 строчками -
  Memo125.Memo - 17, а VarToStr ( Memo125.Value ) возвращает 22 (значение из предыдущей страницы) и, соответственно на последней странице с 2 строчками имеем:
  Memo125.Memo - 2, VarToStr ( Memo125.Value ) - 17
  Т.е. VarToStr ( Memo125.Value ) возвращает данные предыдущей страницы.
  И как это понимать?
  
• gpi

  February 2007 отредактировано 06:09

  написал:

  И как это понимать?

  Наверное, сначала обрабатываются OnBeforePrint для всех элементов бэнда, затем OnAfterData, т.е. приведённый выше код должен работать при размещении его в Memo126OnAfterData, но если вместо Memo125 поставить Memo127, то не будет.
  Да и не проще ли в Memo126 просто написать [NUMSPELL(COUNT(MasterData1))]
  функцию NUMSPELL описать так:
  function NumSpell ( num: Variant; FirstCapital: boolean ) : string;
• fimont

  February 2007 отредактировано 06:09

  Спасибо, я так и сделал ('[NUMSPELL1(COUNT(MasterData1))]'), где
  'NumSpell1(num:Variant) : string' - переходная функция к 'NumSpell (num: LongInt ; FirstCapital: boolean ) : string'. Всё заработало, но причину этой проблемы я так и не понял. Будет время, покопаюсь поподробнее...
  Ещё раз, спасибо!