ОШИБКА ПРЕОБРАЗОВАНИЯ ТИПОВ
ИМЕЕТСЯ DB CROSS TAB В ЭТОЙ ТАБЛИЦЕ СУЩЕСТВУЮТ ЗНАЧЕНИЯ "NULL"
ДРУГИЕ -ЧИСЛА РАЗЛИЧНОЙ ТОЧНОСТИ.ПРИ ФОРМАТИРОВАНИИ ЧЕРЕЗ СКРИПТ
- ОШИБКА " not convert variant of type(Null) into (Double).
ЕСЛИ ЗНАЧЕНИЙ "NULL" НЕТ ТО ВСЕ НОРМАЛЬНО.
procedure DBCross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
var I:INTEGER;
begin
FOR I:=0 TO 7 DO
IF ColumnIndex=I THEN MEMO.TEXT:=FormatFloat('0.00',Value);
FOR I:=15 TO 20 DO
IF ColumnIndex=I THEN MEMO.TEXT:=FormatFloat('0.0',Value);
end;
КАК ИЗБЕЖАТЬ ЭТОЙ ОШИБКИ , КТО НИБУДЬ СТАЛКИВАЛСЯ?
GPI-СПАСИБО ЗА ПОМОЩЬ.
ДРУГИЕ -ЧИСЛА РАЗЛИЧНОЙ ТОЧНОСТИ.ПРИ ФОРМАТИРОВАНИИ ЧЕРЕЗ СКРИПТ
- ОШИБКА " not convert variant of type(Null) into (Double).
ЕСЛИ ЗНАЧЕНИЙ "NULL" НЕТ ТО ВСЕ НОРМАЛЬНО.
procedure DBCross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
var I:INTEGER;
begin
FOR I:=0 TO 7 DO
IF ColumnIndex=I THEN MEMO.TEXT:=FormatFloat('0.00',Value);
FOR I:=15 TO 20 DO
IF ColumnIndex=I THEN MEMO.TEXT:=FormatFloat('0.0',Value);
end;
КАК ИЗБЕЖАТЬ ЭТОЙ ОШИБКИ , КТО НИБУДЬ СТАЛКИВАЛСЯ?
GPI-СПАСИБО ЗА ПОМОЩЬ.
Комментарии