Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.08.20;
Скачать: CL | DM;

Вниз

Скрытие повторяющихся значений в Quick Report   Найти похожие ветки 

 
Дмитрий_Б ©   (2006-06-12 15:42) [0]

Здравствуйте. Есть отчет, упорядочен по первому столбцу, причем значения в нем повторяются. Чтобы исключить повторения значений в первом столбце, делаю так:

var OldValue : string;

procedure TfReport.DetailBand2AfterPrint(Sender: TQRCustomBand;
 BandPrinted: Boolean);
begin
  OldValue := DataSet.FieldByName("QAZ").AsString;
end;

procedure TfReport.QRDBText14Print(sender: TObject;
 var Value: String);
begin
  if Value = OldValue then
     QRDBText14.Font.Color := clWhite
  else
     QRDBText14.Font.Color := clBlack;
end;

procedure TfReport.FormCreate(Sender: TObject);
begin
  OldValue := "";
end;

В предварительном просмотре все выглядит так как должно быть, но:
Если групп больше одной то все ОК.
Если в первом столбце только одна группа значений, то в просмотре она есть, а при печати не выводится.

Если у кого то есть решение другим способом, поделитесь пож-та.


 
Johnmen ©   (2006-06-12 16:10) [1]

Достаточно одного обработчика BeforePrint у детального бенда.
В нём на основе анализа OldValue и DataSet.FieldByName("QAZ").AsString принимаем решение QRDBText14.Enable (или используем Visible).
И ещё важный момент - OldValue должна инициализироваться каждый раз перед генерацией отчёта, напр. в BeforePrint отчёта.


 
Дмитрий_Б ©   (2006-06-12 16:14) [2]

ОК, спасибо, сейчас попробую.



Страницы: 1 вся ветка

Текущий архив: 2006.08.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
4-1145909672
Volf_555
2006-04-25 00:14
2006.08.20
Как отправить программе комбинацию клавиш?!


3-1150216421
bruha
2006-06-13 20:33
2006.08.20
вопрос по реализации Master-Detail, lookup -> calculated field


15-1153403799
IceBeerg
2006-07-20 17:56
2006.08.20
Почему ПК выключается сам?


2-1154453897
bobbi
2006-08-01 21:38
2006.08.20
посчитать количество символов в stringlist


3-1150112567
Дмитрий_Б
2006-06-12 15:42
2006.08.20
Скрытие повторяющихся значений в Quick Report