微科社区,轻松开发从此开始! 请登陆 免费注册

微科社区

请教高手fastreprot主从表问题!

时间:2017-01-18 03:21  浏览:努力统计中...
我用fastreprot做报表,主从表设置了固定格式,当从表数据不够行数时,可以补齐空行表格,但是当从表一条数据也没有时,细项数据就不打印了,怎样让他继续打印空行!希望各位大哥
我用fastreprot做报表,主从表设置了固定格式,当从表数据不够行数时,可以补齐空行表格,但是当从表一条数据也没有时,细项数据就不打印了,怎样让他继续打印空行!希望各位大哥大姐给指点一下!在线等!


var BanCount,aa:integer;
procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
首先谢谢NPKAIDA大哥,代码如下,主要是细项没数据时,不打印
  BanCount:=0; //aa:=[COUNT(DetailData1)];
   
end;

  for i:=1 to 5 do
procedure DetailData1OnAfterPrint(Sender: TfrxComponent);
begin
  BanCount:=BanCount+1; //aa:=0;  
end;

var
procedure Footer1OnBeforePrint(Sender: TfrxComponent);
begin
  while BanCount<5 do
  begin
  Engine.showband(Child1);
  BanCount:=BanCount+1;  

  end;
end;

NPKAIDA大哥,我的报表一个主表,一个从表,从表相对应的记录最多5条,当不够五条时,补空行!只是当从表记录是0条时,只打印主项(主表)数据,怎样才能让细项补五个空行.谢谢哥哥能帮我解惑

procedure Footer1OnBeforePrint(Sender: TfrxComponent);
  i: Integer;
begin
  if DetailData1.DataSet.RecordCount=0 then
把你添加空行的代码贴出来才能帮你分析
  Engine.ShowBand(Child1);
end;

谢谢 KAIKAI大哥,给了我启发!已经成功了,不过我是把你的语句加入到MasterData1OnAfterPrint中才行!加到Footer1OnBeforePrint不行,结贴给分

begin
另问问 kaikai,为什么DetailData1没数据时,Footer1里面的数据也不显示,怎样才能让他显示
    顶一下
    (0)
    0%
    踩一下
    (0)
    0%
    ------分隔线------