delphi中设计报表的问题

[wuaizhonghua]

我用Quick Reprt控件做有划线的报表时,最后一页记录不满页时,表格线也是不能满页的,很是难看.请教用什么办法在没数据时,让表格线能画满页呢?请求各位大侠的帮助了,先谢了!

[dll0629]

随便写了个例子，下面是个SQL SERVER存储过程，每页显示条数你自己控制，就测试过一次，不一定没有问题，思路是这样的。
CREATE PROCEDURE Rp
@Num2 int --一页显示条数（这个你自己去计算）
AS
declare @Num1 int
declare @Num3 int --添加空记录

set @Num2 = 4

--创建临时表
create table #tb1
(
a int--字段
)

--插入临时表
insert into #tb1(a)
select a
from (select a = 1 union select a =2 union select a = 3 union select a = 4 union select a = 5) T1

--获得打印总共条数
set @Num1 = (select Count(*) from #tb1)

--获得添加空记录
set @Num3 = @Num2 - (@Num1%@Num2)

--插入剩余的空行
while @Num3 <> 0
begin
insert into #tb1(a)
select A = Null
set @Num3 = @Num3 - 1
end

--显示数据
select *
from #tb1

drop table #tb1

[dll0629]

去掉这句话 set @Num2 = 4

[wuaizhonghua]

上面二位你们写的是delphi程序吗 我怎么看不明白

[dll0629]

数据库（SQL SERVER），写在后台的存储过程里

[wuaizhonghua]

这个想法其实我明白，就是程序写不出来 ，能否帮忙写段程序呀，谢谢了

[橘子香水]

Quick Reprt当然是不行的,自己修改Quick Reprt吧.
要么到www.bluec.com.cn下载BlueC-DVCL,可以实现这样的功能,包含源代码.