在快速报告中的DB交叉表中将条件从列索引更改为列值

Question

我在快速报告中有一个DB Cross选项卡中的脚本，但我希望从ColumnIndex到ColumnValue的更改条件

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

我想要而不是ColumnIndex = 0。我有例如 如果ColumnValue ='joy'且columnvalue ='jack' ...

Answer 1

尝试

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;