Подсчет в столбце

devostator

Выделенный красным цветом столбец - это среднее арифметическое первых трех столбцов.
Вопрос:
Как подсчитать в этом столбце (красном) сколько двоек, троек, четверок, пятерок?

Dimon184

Обработай событие OnAfterData или OnAfterPrint нужного тебе компонента Memo и проверяй в нем.
Имей ввиду, что если отчет двухпроходной то результат подвоится.

devostator

procedure memItogOnAfterData(Sender: TfrxComponent);
var
five,four,three:integer;
begin
if Value='5' then
five:=five+1;
if Value='4' then
four:=four+1;
if Value='3' then
three:=three+1;
end;

а теперь как переменные five, four, three вставить в нужный мне Memo?

Dimon184

Обьяви переменные глобально.

devostator

Простите за тупость. Как?

Dimon184

В Отчет-Переменные отчета или в главной функции.

devostator

Так..... ошибок никаких не вывел, но переменные не показывает.

devostator

Забыл удалить локальные переменные. Создал глобальные через Отчет-Переменные. Выходит ошибка "Неопределенный идентификатор "five"

Dimon184

1. ты вытер с memItogOnAfterData обявление этих переменных?
2. где выводися результат?

devostator

1. Да
2. В Page Footer.

devostator

Почему не видит глобальные переменные?

xlaalaa

devostator написал: »

Почему не видит глобальные переменные?

Трудно понять, что именно у вас не получается. Но глобальные переменные можно объявить прямо на закладке "Код" в тексте скрипта. Выглядеть это должно примерно так:

var
  five, four, three : integer;

procedure memItogOnAfterData(Sender: TfrxComponent);
begin

  if <ItogTable."ItogField">='5' then
     five:=five+1;

  if <ItogTable."ItogField"> = '4' then
    four:=four+1;

  if <ItogTable."ItogField"> = '3' then
    three:=three+1;

end;

begin
   // вначале отчета не забыть обнулить переменные

   five:=0;
   four:=0;
   three:=0;

end.

В место ItogTable и ItogField укажите имена из вашей таблицы.

Чтобы вывести на листе посчитанные количества, в соответствующих ячейках укажите названия переменных в квадратных скобках:

   [five]
   [four]
   [three]