方法1:
临时表,ClientDataSet1.CreateDataSet 。。。。。。等等
总之先生成一样的数据集
方法2:
quickreport 的事件
procedure TForm1.QuickRep1EndPage(Sender: TCustomQuickRep);
begin
if No <6 then
begin
TQuickRep(Sender).DataSet.Prior;
No:=No+1;
end
else
No:=1;
end;
procedure TForm1.QRLabel1Print(sender: TObject;
var Value: String);
begin
Value:='联'+inttostr(no);
end;
还有几个事件没写 这只是 示意