2016-03-25 13 views
1

Ich habe ein Skript in db Kreuztabelle in schnellen Bericht und ich whant Anzeigewert-Format von String-Nummer (% 2.0n) und Separator,chenge Wert von Zeichenfolge in schnellen Bericht an der Nummer

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; 

Antwort

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')))]); 

Ende;

+0

Sehr geehrte gpi Hallo und sehr sehr tnx Für meine Fragen gestellt – Frank