VPF::Узнать количество выведенных записей в QReport

Chyslyvchyk

Дата 12.1.2007, 05:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 446
Регистрация: 9.5.2004

Репутация: нет
Всего: 5

Есть база. К ней коннектимся через 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 должен считать количество записей выбранного диапазона, а он, зараза, считает сколько всего записей в таблице...

--------------------

Простота - сестра таланта!