關于報表固定格式的問題(急用)(100分)

現在應客戶要求,在Detailband中數据已顯示完,但此頁並沒有顯滿,線條需繼續顯示到
整頁,即沒有數據但線條還要顯示,請各位幫忙,答案請發往信箱:wangenming@371.net

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
var
i, k : integer;
sh : array of tqrshape;
begin
qrband1.Height := quickrep1.Height - PageHeaderBand1.Height;
//设QRBAND1.bandtype = rbSummary
if qrband1.Height > 每行的高度 then
begin
setlength(sh,qrband1.Height div 40 - 1);
k := quickrep1.height - 38 -38 - SumOfOtherband.height;//SumOfOtherband.height:指其它band的高度和，前面的38是报表自动设置出来的页的空白，双击报表可以改。
for i := 1 to k div 每行的高度 - 1do

begin
sh := TQRShape.Create(qrband1);
sh.Parent := qrband1;
sh.Top := 40 * i;
sh.Width := qrband1.Width;
sh.Height := 1;
sh.Left := 0;
sh.Shape := qrsHorLine;
end;
end;

end;

Delphi中的 Formula One 是个不错的控件,它的应用在 网址 http://zhangxzh.diy.163.com
上有个demo 下载安装,看看里面用F1book制作的各种复杂的不规则报表,其中在第二个page页上有你说的东东,你可以输入每页的总行数,输入数据行数.进行验证