我这样做就成功了,将 QRLabel1 ... QRLabel3放到DetailBand1上,,i与你的j相同,结果就出来了.procedure TForm2.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
Moredata := True;
with Form1 do
begin
if i>StringGrid1.RowCount then
begin
MoreData := False;
exit;
end;
if MoreData then
begin
QRLabel1.Caption := StringGrid1.Cells[1,i];
QRLabel2.Caption := StringGrid1.Cells[2,i];
QRLabel3.Caption := StringGrid1.Cells[3,i];
end;
i:=i+1;
end;
end;
begin
Moredata := True;
with Form1 do
begin
if i>StringGrid1.RowCount then
begin
MoreData := False;
exit;
end;
if MoreData then
begin
QRLabel1.Caption := StringGrid1.Cells[1,i];
QRLabel2.Caption := StringGrid1.Cells[2,i];
QRLabel3.Caption := StringGrid1.Cells[3,i];
end;
i:=i+1;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货