Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Узнать количество выведенных записей в QReport

Автор: Chyslyvchyk 12.1.2007, 05:46

Есть база. К ней коннектимся через HalcyonDataSet.
Есть две формы. На Form1 два Edit-а, на Form2 - репорт. В репорт выводятся имена.
В Edit-ы вводятся имена, если нужно вывести в репорт не с первого по последний, а выборочно диапазон.

Код

     
if UpperCase(edit1.text) = 'FIRST' then 
A := form2.HalcyonDataSet.fieldbyname('AA').asstring
else A := edit1.text;

if UpperCase(edit2.text) = 'LAST' then
B := form2.HalcyonDataSet.fieldbyname('AA').asstring
else B := edit2.text;

form2.HalcyonDataSet.SetRange(A, B);

Нужно посчитать количнство выведенных записей в репорте.

Вариант 1: На репорте лежит QRLabel.Caption := 'Name', напротив QRDBText1 в пропертис которого в DataField выбрано поле АА. Можно ли подсчитать сколько раз был выведен QRLabel, например? В кристале вроде бы можно...

Вариант 2: После form2.HalcyonDataSet.SetRange(A, B); написать form2.HalcyonDataSet.RecordCount;
Тут вроде как RecordCount должен считать количество записей выбранного диапазона, а он, зараза, считает сколько всего записей в таблице...

Автор: Chyslyvchyk 12.1.2007, 06:02

Да что такое... Который раз бьюсь час над решением, отчаиваюсь, бегу на форум, и сразу после опубликования темы нахожу ответ... smile

Решение простое. QRExpr и в нем прописать функцию COUNT.