procedure TMyReport.BeforePrint(Sender:TCustomQuickRep;varPrintReport:Boolean); begin MyReport.AllDatasets.Add(DataModule1.CustomerTable2);//加入数据表; end; ////////////////////////////////// 在DetailBand1AfterPrint事件中加入 begin if RecordCount= RecordNumber then begin MyReport.Dataset:= CustomerTable2;//转换数据表; end; end; 请加分!!
begin
MyReport.AllDatasets.Add(DataModule1.CustomerTable2);//加入数据表;
end;
//////////////////////////////////
在DetailBand1AfterPrint事件中加入
begin
if RecordCount= RecordNumber then
begin
MyReport.Dataset:= CustomerTable2;//转换数据表;
end;
end;
请加分!!
然后query 查询,定制查询