fastreport打印固定格式报表问题 ( 积分: 100 )

  • 主题发起人 主题发起人 form1.
  • 开始时间 开始时间
F

form1.

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在的问题是从表没有数据显示的问题,想要格式如下:
Header主
A
Header从1
b1 b4
b2 b5
b3 b6
Header从2
c1
c2
c3
c4
问题是打印的时候如果从表没有数据这一块就不能显示
请富友们帮忙,谢谢了。
在线等
 
给你个例子,是FASTREPORT脚本
var PageRows:integer;
procedure ColumnFooter1OnBeforePrint(Sender: TfrxComponent);
begin

end;

procedure DetailData1OnAfterPrint(Sender: TfrxComponent);
begin
PageRows:=PageRows+1;
if PageRows>=10 then
Engine.NewPage;
end;

procedure ColumnHeader1OnAfterPrint(Sender: TfrxComponent);
begin

end;
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
while (PageRows>=0) and (PageRows<10)do
begin
Engine.showband(Child1);
PageRows:=PageRows+1;
end;
if PageRows>=10 then
Engine.Newpage;
end;

procedure PageFooter1OnAfterPrint(Sender: TfrxComponent);
begin
PageRows:=0;
end;

procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
begin

// if MasterData1.DataSet.Count=MasterData1.DataSet.RecNo then
// showmessage('aaaa');
end;

begin
PageRows:=-1 ;
showmessage(Engine.COUNT(MasterData1));
end.
 
wtj:你好
您这段程序只是实现从表数据显示10条,不足的话补空。但是从表如果没有对应数据,与之对应的Header和详表内容都不显示。不过还是很感谢您。
 
pangzhenguang,
您这段程序只是实现从表数据显示10条,不足的话补空。但是从表如果没有对应数据,与之对应的Header和详表内容都不显示。不过还是很感谢您。
 
PrintIfEmpty为False
 
您好:linuxping,
PrintIfEmpty这个属性名应该是PrintIfDetailEmpty吧
DetailBand这个属性我设过不行的。谢谢
 
在你要显示的记录行数下面,添加一个Overlay,再添加你要显示的多少行MEMO空白控件
我帮你做的实例如图:http://www.erp2.cn/1.gif
源报表文件:http://www.erp2.cn/1.frf
 
to:bbscom
你好,我看不明白你是怎么做的。能说详细一点吗?
 
怎么没人回答?是否 是FastReport不能实现 ?
 
后退
顶部