ФОРМАТИРОВАНИЕ В DB CROSSTAB ИЗ СКРИПТА
procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
begin
if ColumnIndex =3 then
if Value >1000 then
Memo.Font.Color:=clGREEN; //( выделение цветом в колонке работает )
if ColumnIndex=4 then FormatFloat('0.00',Value) ; //( а форматирование в колонке не работает )
//( что не правильно или не так??)
end;
begin
end.
begin
if ColumnIndex =3 then
if Value >1000 then
Memo.Font.Color:=clGREEN; //( выделение цветом в колонке работает )
if ColumnIndex=4 then FormatFloat('0.00',Value) ; //( а форматирование в колонке не работает )
//( что не правильно или не так??)
end;
begin
end.
Комментарии
if ColumnIndex=4 then Value:=FormatFloat('0.00',Value) ;