delphi中设计报表的问题

Question

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

Answer 1

随便写了个例子，下面是个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 #tb1drop table #tb1

Answer 2

去掉这句话 set @Num2 = 4 

Answer 3

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

Answer 4

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

Answer 5

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