报表分页问题,散分,顺便!
上海老李 2003-12-29 05:08:50 当然我的报表另有代码,以下是我实现的简化的代码,现在求高手来帮帮忙
procedure test;
var
myqr:TQRLABEL;
i,j:integer;
begin
i:=0;
j:=0;
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from test');
adoquery1.open;
while not adoquery1.eof do
begin
if j>=20 then
begin
j:=0;
i:=0;
//如何在这实现分页?比如每二十条记录为一页
end;
MyQr:=TQRLabel.Create(self);
MyQr.Parent :=summ3;
MyQr.name :='Q'+adoquery1.fieldbyname('id').asstring;
MyQr.Top:=i;
MyQr.Left:=34;
MyQr.Width :=26;
MyQr.Height :=17;
MyQr.Caption:=adoquery1.fieldbyname('name').asstring;
i:=i+20;
inc(j);
adoquery1.next;
end;