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

Вниз

FastReport Помогите. Выделение строк по условию   Найти похожие ветки 

 
Gedimen ©   (2012-08-19 15:52) [0]

Доброго времени суток, мастера.
Нужна Ваша помощь.
(использую Delphi XE2, FastReport 4.12.6)

Нужно выделить строки в отчете желтым цветом (в зависимости от условия).
Есть поле date_end.
Нужно при формировании отчета проверять:
- если date_end< "текущая дата +20 дней", то выделяем желтым.
Но при реализации какая-то хрень получается.
Например у меня 7 строк в отчете:
1 - Не удовлетворяет условию;
2, 3 удовлетворяет;
4 - опять нет.
и т.д. Так он мне берет и выделяет, например, все кроме первой.
Пробовал по-разному: через OnAfterData, OnAfterPrint, OnBeforePrint.
Одна фигня. Такое чувство, что он только один раз проверяет условие.


//<myDate> передаю дату+20 из программы.
procedure Memo6OnAfterData(Sender: TfrxComponent);
   if (StrToDate(<frxDBDataset1."date_check">)< StrToDate(<myDate>)) then
       memo6.color:=cl Yellow;                                      
end;

Уже весь инет облазил, а так ничего толкового не нашел.
P.S. Условное выделение под мою задачу не подходит, т.к. буду выделять красным когда дата окончания будет меньше текущей.


 
Gedimen ©   (2012-08-19 15:54) [1]

В коде указал <date_check> (не ошибка). Просто другой кусок скопировал. Это поле тоже проверяю.


 
Inovet ©   (2012-08-19 17:41) [2]

procedure MasterData1OnBeforePrint(Sender: TfrxComponent)
begim
 if (<dMd."ID"> mod 2) = 1 memo6.Color := clYellow;                                
 else memo6.Color = clWhite;                                
end


 
Gedimen ©   (2012-08-19 20:50) [3]

Спасибо. Сам допер уже.



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

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

Наверх




Память: 0.47 MB
Время: 0.047 c
2-1334410535
tolbase
2012-04-14 17:35
2013.03.22
Delphi 7! Как отловить событие minimize формы?


15-1329643520
AV
2012-02-19 13:25
2013.03.22
Посоветуйте что-нибудь, компонент не хочет работать в службе..


15-1354088508
asail
2012-11-28 11:41
2013.03.22
Win7 32bit и 8гиг оперативки...


15-1351694777
Handler
2012-10-31 18:46
2013.03.22
как будет на английском


15-1337373003
Юрий
2012-05-19 00:30
2013.03.22
С днем рождения ! 19 мая 2012 суббота