fastreport隔组换色

Question

fastreport如何隔组换色?

Answer 1

使用脚本可以实现
先在 
Page页面的OnBeforePaint中写脚本
begin
  i :=0;
end;然后在  主项数据的OnBeforePaint中写脚本如begin
  i := i + 1;
  if i mod 2 = 0 then
    Memo1.FillColor := clred
  else
    Memo1.FillColor := clWhite;
end;这样就可实现了。我上面写的Memo1是在主项数据上的一个Memo，同时如果有多少个Memo就写多少个这样的则可