Уважаемые, программка формирует отчет, для выбора из таблицы данных я сделал такую "подставку". Проблема в том что программа вылетает если значения в базе пустые.. - как мне это допилить, чтобы при пустом значении вставляло
Form4.qrLabel441.Caption:=' ' к примеру?
Код:
DataModule2.AdoQ28.First;
for I := 0 to DataModule2.ADOQ28.RecordCount do
begin
if DataModule2.ADOQ28.FieldByName('xxxx').Value<>0 then
begin
Form4.qrLabel441.Caption:=DataModule2.ADOQ28.FieldByName('xxxx').AsString;
end;
DataModule2.AdoQ28.Next;
end;