我在快速报告中的数据库交叉表中有一个脚本,我从字符串到数字(%2.0n)和分隔符,
显示值格式procedure DBCross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
begin
if ColumnIndex = 0 then
if Value <> null then
Set('Var0', Value)
else
Set('Var0', 0);
if DBCross1.IsGrandTotalColumn(ColumnIndex) then
Memo.Text :=VarToStr(value- Get('Var0'));
end;
答案 0 :(得分:0)
procedure DBCross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
begin
if ColumnIndex = 0 then
if Value <> null then
Set('Var0', Value)
else
Set('Var0', 0);
if DBCross1.IsGrandTotalColumn(ColumnIndex) then
Memo.Text := Format('%2.0n', [StrToFloat(VarToStr(value- Get('Var0')))]);
端;