如何控制QuickReport的SubDetail打印空行 ( 积分: 50 )

  • 主题发起人 主题发起人 planetsss
  • 开始时间 开始时间
P

planetsss

Unregistered / Unconfirmed
GUEST, unregistred user!
问题是这样:
有一个报表打印人员信息,信息从数据库中读出,要求每页有固定行数,如果人数不足就补充空行。
如何能够让QuickReport的SubDetail打印出空行来呢?
 
问题是这样:
有一个报表打印人员信息,信息从数据库中读出,要求每页有固定行数,如果人数不足就补充空行。
如何能够让QuickReport的SubDetail打印出空行来呢?
 
大家快回我的问题啊,不会是要我先把那个表画好吧…………
 
quickreport 的 OnNeedData:
procedure TForm1.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
moredata:=true;
if not table1.Eof then
begin
begin
qrlabel1.Caption := table1.fieldbyname('Name').AsString;
//subDetail中要显示的数据
qrlabel2.Caption := table1.fieldbyname('Age').AsString;
end;
table1.Next;
end
else
//每页显示五行,不足用空行补齐
if nRow < 5 then
begin
qrlabel1.Caption := '';
qrlabel2.Caption := '';
end;
if nRow = 5 then
begin
moredata := false;
table1.First;
nRow := 0;
end;
Inc(nRow);
end;
 
感谢楼上的abanonlrc啊~
分给你加上了
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部