FastReport

@Gantzer61 · Регистрация: 11.12.2011

Author24 — интернет-сервис помощи студентам

Всем доброго время суток. Делаю отчёты в FastReport'e да вот никак не могу обработать деление на ноль.
Вот мои попытки:

Delphi

if (<ADOQuery1."Льготники">=nil) then memo27.memo.text:='0'
else memo27.memo.text:='[<ADOQuery1."Количество рецептов">/<ADOQuery1."Льготники">]';
if  (<ADOQuery1."Льготники">=nil) then memo28.memo.text:='0'                                              
else memo28.memo.text:='[SUM(<ADOQuery1."Количество рецептов">/<ADOQuery1."Льготники">)]';

Как видно из кода данные я получаю из ADOQuery1 и сверяю их с нулём(пробовал 0, но FastReport меня не понял, а вот при использовании Nil начал отлавливать ноль) отлавливает ноль в первой записи данных. Попробовал создать цикл для хождения по ADOQuery1, вот только проблема что вначале срабатывание код в FastReport'e, а уже потом строится отчёт и получается что теперь берёт он только данные с последней записи. Может кто работал с отчётами в этой программе и поможет с решением данной проблемы. Надеюсь на ваш опыт.

Вот цикл пока только по 3 записям в базе т.к. всего там 3 записи.

Delphi

var i:integer;                                 
begin                                   
for i:=1 to 3 do
begin            
if (<ADOQuery1."Льготники">=nil) then memo27.memo.text:='0'
else memo27.memo.text:=FloatToStr(<ADOQuery1."Количество рецептов">/<ADOQuery1."Льготники">);
if  (<ADOQuery1."Льготники">=nil) then memo28.memo.text:='0'                                              
else memo28.memo.text:=FloatToStr(SUM(<ADOQuery1."Количество рецептов">)/<ADOQuery1."Льготники">);
ADOQuery1.next;                                
end;    
end.

@ProRockX · 22.05.2013, 23:54

Я работаю через fastreport (правда он встроен в стороннюю программу) с oracle. И если нужно что-то на что-то делить и есть вероятность, что знаменатель равен нулю, я просто проверяю это не через фастрепорт, а в самом запросе.

@Gantzer61 · 23.05.2013, 14:05 **[ТС]**

Нашёл одну функцию для обработки. Если кому надо то вот:

Delphi

1	[iif(<ADOQuery1."Льготники">=0,0,<ADOQuery1."Количество рецептов">/<ADOQuery1."Льготники">)]

@ProRockX 263 / 109 / 26 Регистрация: 16.03.2013 Сообщений: 272
	22.05.2013, 23:54	2
	Я работаю через fastreport (правда он встроен в стороннюю программу) с oracle. И если нужно что-то на что-то делить и есть вероятность, что знаменатель равен нулю, я просто проверяю это не через фастрепорт, а в самом запросе. 0

	23.05.2013, 14:05