Var I:Integer;
begin
//在设计时已将Query的CachUpdate:=True,而且UpdateObject:=UpdateSQL(对UpdateSQL
不作任何处理),而且Query有一字段作Key用(不是自增,不打印)。
if (Query.RecordCount Mod 20)<>0 then
begin
for I:=1 to (Query.RecordCount Mod 20)do
begin
Query.Append;
Query.FieldByName('Key').Value:=-I;//此处仅是为了不出现重复纪录。
..........
Query.Post;
end;
end;
QuickReport.PreView;
end;