源代码如下:
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没有什么特殊设置,它的打印显示是正常的,请问我的哪里没有设置对呢?
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没有什么特殊设置,它的打印显示是正常的,请问我的哪里没有设置对呢?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货