我用fastreprot做报表,主从表设置了固定格式,当从表数据不够行数时,可以补齐空行表格,但是当从表一条数据也没有时,细项数据就不打印了,怎样让他继续打印空行!希望各位大哥大姐给指点一下!在线等!

解决方案 »

  1.   

    首先谢谢NPKAIDA大哥,代码如下,主要是细项没数据时,不打印
    var BanCount,aa:integer;
    procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
    begin
      BanCount:=0;  //aa:=[COUNT(DetailData1)];
           
    end;procedure DetailData1OnAfterPrint(Sender: TfrxComponent);
    begin
      BanCount:=BanCount+1; //aa:=0;            
    end;procedure Footer1OnBeforePrint(Sender: TfrxComponent);
    begin
      while BanCount<5 do
      begin
        Engine.showband(Child1);
        BanCount:=BanCount+1;         end;
    end;
      

  2.   

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

  3.   

    procedure Footer1OnBeforePrint(Sender: TfrxComponent);
    var
      i: Integer;
    begin
        if DetailData1.DataSet.RecordCount=0 then
        for i:=1 to 5 do
           Engine.ShowBand(Child1);
    end;
      

  4.   

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

  5.   

    另问问 kaikai,为什么DetailData1没数据时,Footer1里面的数据也不显示,怎样才能让他显示