源代码如下:
procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);
var
  Cross: TfrxCrossView;
  i,j: Integer;
begin
    Cross := TfrxCrossView(frxReport1.FindObject('Cross1'));
    i := 0;
    ADOs.SQL.Clear;
    ADOs.SQL.Text:='select * from wk_zp_info order by id desc';
    ADOs.Open;
    while not ADOs.Eof do
    begin
    for j := 0 to ADOs.Fields.Count - 1 do
      Cross.AddValue([i], [ADOs.Fields[j].DisplayLabel], [ADOs.Fields[j].AsString]);
      i:=i+1;
      ADOs.Next;
    end;
    Cross := TfrxCrossView(frxReport1.FindObject('Cross2'));
    i := 0;
    ADOs.SQL.Clear;
    ADOs.SQL.Text:='select * from wk_zp_info order by id desc';
    ADOs.Open;
    while not ADOs.Eof do
    begin
    for j := 0 to ADOs.Fields.Count - 1 do
      Cross.AddValue([i], [ADOs.Fields[j].DisplayLabel], [ADOs.Fields[j].AsString]);
      i:=i+1;
      ADOs.Next;
    end;
end;
我看fastreport自带的demo没有什么特殊设置,它的打印显示是正常的,请问我的哪里没有设置对呢?