ändern Zustand von Spaltenindex der Spalte Wert in DB Kreuztabelle in Fast-Bericht

Question

Ich habe einen Scrip in DB-Kreuz Reiter in schnellen Bericht, aber ich Zustand von Column zu Column ändern wollen

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

enter image description here

Ich möchte stattdessen ColumnIndex = 0. Ich habe zum Beispiel wenn Column = 'Freude' und Column = 'jack' ...

Answer 1

Versuchen

procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant); 
begin 
    if ColumnValues[0] = '2000' then if ColumnValues[1] = '2' then Memo.Color := clRed;                            
end;