procedure ReportTitle1OnBeforePrint(Sender: TfrxComponent); begin if DBCross1Row4.Value>DBCross1Row4.Value*1.02 then DBCross1Row4.Frame.Color := clRed; end;不起作用
别用value,直接用字段名去取值试试
if <MainDataSet."byBPRICE">><MainDataSet."LOWPRICE">*1.02 then DBCross1Row8.Font.Color := clRed;这样取出来了颜色改变的是整列 呵呵 我想要的是具体到某个网格里颜色改变
procedure DBCross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant); begin if ColumnIndex=0 then C1 := Memo.Value; if (ColumnIndex=2) and (Memo.Value<C1) then Memo.Font.Color := clRed; end;
begin
if DBCross1Row4.Value>DBCross1Row4.Value*1.02 then
DBCross1Row4.Frame.Color := clRed;
end;不起作用
DBCross1Row8.Font.Color := clRed;这样取出来了颜色改变的是整列
呵呵
我想要的是具体到某个网格里颜色改变
procedure DBCross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
begin
if ColumnIndex=0 then C1 := Memo.Value;
if (ColumnIndex=2) and (Memo.Value<C1) then
Memo.Font.Color := clRed;
end;