在onneeddata中手动写入汇总结果吧。
在窗体的
var
recordcount:integer;
onauickreport1.beforeprint;
begin
adoquery1.first;
recordcount:=1;
end;
onneeddata
var
i,j:integer;
begin
if recordcount<> adoquery1.recordcount+2 then
moredata=true;
for j:=1 to adoquery1.recordcount+1do
begin
if j=adoquery1.recordcount+1 then
begin
//====写入统计信息；
inc(rcordcount);
break;
end;
for i:=0 to adoquery1.fieldcount-1do
begin
case i of
0:qrlabel1.caption:=adoquery1.fields.asstring;
1: ......
//===写数据只能到fieldcount-1;
end;
//====end case
//====此处统计；
adoquery1.next;
inc(recordcount);
end;
end;
end;
这个我没有调试你试试看行不行；
