Если в базе null, то выводить ноль.

TrainerOfDolphins

Добрый день!
Во-первых, нужно, чтобы вместо пустоты там, где в базе ничего нет, выводился ноль.
Во-вторых, чтобы сумма двух пустых значений тоже отображалась, как 0.
Эти проверки скорее всего нужно делать в OnBeforePrint? Но объктов Memo у меня много, так что желательно назначить им один и тот же обработчик...
Подскажите, пожалуйста, как наиболее рационально и универсально добится цели...
Заранее спасибо, если натолкнёте на разумную мысль.

aseroff

написал:

Подскажите, пожалуйста, как наиболее рационально и универсально добится цели...

В запросе!!!


Надо еще учесть, что возможно это строковая переменная, а мы ей число будем присваивать.

TrainerOfDolphins

aseroff написал:

В запросе!!!

В каком ещё запросе?

TrainerOfDolphins

aseroff написал:

Надо еще учесть, что возможно это строковая переменная, а мы ей число будем присваивать.

Те поля для, которых я это буду применять содержат числа...

TrainerOfDolphins

Пробовал так:

if <Grants."GRANT_SIZE">=NULL
  then TfrxMemoView(Sender).text:='0';

Нифига

-=Den=-

В дизайнере отчетов (дерево объектов) выберите Report -> EngineOptions и установите ConvertNulls в False.

TrainerOfDolphins

Ничего не поменялось ...

-=Den=-

написал:

Ничего не поменялось ...

Где меняли в дизайнере отчетов (т.е. в самом отчете) или у компонента отчета TfrxReport ?

TrainerOfDolphins

написал:

Где меняли в дизайнере отчетов (т.е. в самом отчете) или у компонента отчета TfrxReport ?

Менял в дизайнере отчётов. К тому же если прибить ConvertNulls, то потом сумма хначений двух полей, одно из которых =null не выводится...
И ваще, наверное подход к этому всему неверный...

TrainerOfDolphins

Проблему решил по-другому. С другого конца: всем нужным полям назначил обработчик в Delphi

procedure TDM.tblGrantsGRANT_SIZEGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  Text:=FloatToStr(Sender.AsFloat);
end;

И всё.

artyom

А чё через СКЛ запрос нельзя чтоли? Написать в нем что-то типа

select 
  isnull(t1.myField, 0) craftyField -- :)
from t1

И всё - если поле не заполнено вернется 0.