发信人: seago()
整理人: kingron(2000-12-05 19:16:59), 站内信件
|
【 在 099 (099) 的大作中提到: 】
: 【 在 sunhaiwei (小人物) 的大作中提到: 】
: : 如何做到报表每页打印固定数量的记录？我的报表是那种最简单带格子的。
: : 比如我的数据库前几页打印正常，最后一页有5个记录，那么Qreport只打印这5
: :
这样可以吧！
var
DataCount:integer;
procedure TForm1.QuickRep1StartPage(Sender: TCustomQuickRep);
begin
DataCount:=0;
end;
procedure TForm1.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
Inc(DataCount);
With Query1 do
begin
if eof then
begin
if (DataCount<20) then
begin
MoreData:=TRUE;
QRLabel1.Caption:='';
end
else
MoreData:=FALSE;
end
else begin
MoreData:=TRUE;
QRLabel1.Caption:=FieldByName('a').AsString;
next;
end;
end;
end;
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.100.218.155]
|
|