Fast Report проблема

[Devostator]

Как мне сделать в Fast Report, чтобы в 4 ячейке выводилось среднее арифметическое 1,2,3 ячеек? Пытался функцией AVG() сделать, ничего не получилось.

1,2,3 ячейки - это поля БД. БД вызываю через ADOQuery.

В FreeReport вот так проканывало: [Round([qry1."Рубежный_контроль"+qry1."Сред ний_бал"+qry1."Оценка_тест"]/3)]
А в FastReport уже не канает.

[_SERGEYX_]

Ну, там же все написано...
Подключаем набор данных в отчете.
Бросаем frxMemo в Бэнд. Кликаем по frxMemo два раза.
Жмем "Вставить Агрегатную функцию"

Устанавливаем:
Функция - AVG
Дата бэнд - наш
Набор данных - наш
Поле БД - не указываем

Жмем кнопку "Выражение"
В нем кликаем по нужным полям и сплюсовываем их.
Допустим у нас поля f1,f2,f3
Значит строка будет выглядеть так

[AVG(<frxDB."f1"> + <frxDB."f2"> + <frxDB."f3">)]

Кстати, агрегатные функции работают только в футерах (то бишь подвалах) !!!!

[Devostator]

Сообщение от _SERGEYX_

В нем кликаем по нужным полям и сплюсовываем их.
Допустим у нас поля f1,f2,f3

Нет там полей. У меня через ADOQuery все работает.
Ну я вписал поля, которые должны быть приплюсованы, вот так:

[AVG(<frxDBDataset1."Рубежный_контроль">+<frxDBDataset1."Средний_бал">+<frxDBDataset1."Оценка_тест">,MasterData1)]

В итоге все ячейки пустые. Даже в 1,2,3 ячейках перестал выводить данные. Никакой ошибки не вывел.

Поменял формат ячеек с "числовой" на "текст", теперь показывает 1,2,3 ячейки. А вот их сумму так и не показывает.

[_SERGEYX_]

То есть как в ADOQuery нет полей если в нем выполнен запрос???
Должен быть frxDBDataset1.DataSet := ADOQuery;
А в ADOQuery должны быть поля.
Или их можно создавать динамически а запросе, напрмер
select [Рубежный_контроль] as Control и т.д....
В самом отчете Меню > Отчет > Данные должен быть подключен frxDBDataset1.

[Devostator]

Запрос создается в ходе выполнения программы. Потом, то что получилось выводится в отчет.
А так все подключено. Все данные выводятся: Фамилия, оценки. А вот среднее арифметическое этих трех ячеек не могу вывести.

Самое странное, что в FreeReport все получилось, а вот в FastReport'e не получается...

[_SERGEYX_]

Ну, если не получается, попробуй так

[round((<frxDBDataset1."f1">+<frxDBDataset1."f2">+<frxDBDataset1."f3">) / 3)]

т.е. просто раздели сумму на 3. Но это не очень красиво выглядит.

[Devostator]

Сработало! Спасибо! На весы щелкнул)
Есть еще один вопрос:
А как теперь подсчитать внизу (в footer) сколько человек получило 3, сколько 4, и сколько 5? Данные находятся в четвертой ячейке.

[Devostator]

Народ, подскажите пожалуйста! Как подсчитать из этого столбца в FastReport'e сколько четверок, пятерок, троек?

[_SERGEYX_]

Хе, первое, что пришло в голову

var s: string;

  s := '';
  Query.close;
  Query.SQL.Clear;
  Query.SQL.Add('select distinct f4 from MyTable');
  Query.Open;

  while not Query.Eof do
  begin
    Query2.close;
    Query2.SQL.Clear;
    Query2.SQL.Add('select count(*) from MyTable where f4 = ' + Query.Fields[0].asstring);
    Query2.Open;
    s := s + Query.Fields[0].asstring + '  -  ' + Query2.Fields[0].asstring + #13 + #10;
    Query.Next;
  end;
  ShowMessage(s);

Принцип понятен?
Потом передать переменную s в отчет.
Предвижу, что следующим вопросом будет как передать переменную в отчет .
Вот так:
Пишем где-то в отчете в квадратных скобках [s]
А в коде перед показом отчета

frxReport1.Script.Variables['s'] := s;

[Devostator]

Так 4 ячейки в БД нету. Она получается в ходе вычисления среднего арифметического 1,2,3 ячеек.