1

Topic: CrossTab to push 0 in blank cells in FastReport.

I welcome!
There is a report with CrossTab th. It is necessary that instead of "anything" in cells it was deduced 0 ("0.00").
How it to make? Prompt, please!
It did not help:

procedure DBCross1Cell0OnAfterPrint (Sender: TfrxComponent);
begin
MainQuery.open;
IF MainQuery. FieldByName (' SUMCUR ').Value = 0 THEN
DBCross1Cell0.text: = ' 0.00 ';
IF MainQuery. FieldByName (' SUMCUR ').Value = NULL THEN
DBCross1Cell0.text: = ' 0.00 ';
end;

The matter is that for these cells the request does not return anything even NULL, i.e. the line such is not present for given SUMCUR (but for others is...).

2

Re: CrossTab to push 0 in blank cells in FastReport.

procedure DBCross1OnPrintCell (Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
begin
if Value = null then Memo. Text: = ' 0 ';
end;

3

Re: CrossTab to push 0 in blank cells in FastReport.

gpi, MANY THANKS!