数据不够一页,如何把空行也打出来?

dai_er 2002-11-01 09:49:40
我从库里查出的数据只有几行,不够一页,纸上空白的太多,如何能让每页的行数固定,就算没有数据也可以把空行打出来?另需要给每行数据一个序号,库里没有这个字段,如何用一个变量循环做到?急。
...全文
152 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
hh5458 2002-11-22
  • 打赏
  • 举报
回复
太简单了,我用Printer对象就完全做到了,我的程序还可以实现套打功能。
1。用一个文件记录总打印行数和序号
2.循环读取记录
3.如果从文件中得到的当前行数与每页行数的模为1即为第一行时打印空表和第一行。
4.如果不为第一行则定位到相应位置打印数据和序号。
5。向文件中记录打印完成后的总行数与序号。

以上方案应该可解决你的问题咯
gzqg 2002-11-21
  • 打赏
  • 举报
回复
faint,还没解决吗?
dai_er 2002-11-07
  • 打赏
  • 举报
回复
有没有人知道呀?
dai_er 2002-11-05
  • 打赏
  • 举报
回复
我现在用的是VB的DATAREPORT工具,暂时不准备换别的工具,各位有没有针对它的方法。
T1227 2002-11-03
  • 打赏
  • 举报
回复
gzqg(星野风流)的方法是要使用代码控制你的报表的记录。
你先用他的那段代码判断你查出的数据生成的记录集。
然后再把用这段代码整理过的记录集绑定到你的报表上。(记住一定要绑定整理后的那个记录集。)
lkgr 2002-11-03
  • 打赏
  • 举报
回复
比较关心
期待中
IsMe 2002-11-03
  • 打赏
  • 举报
回复
这两个问题都是某些中国式表格的特点,外国的报表工具一般不予考虑
众合打表(原傻瓜打表)对这两个问题只需要设置两个属性即可(一个是添加空行到底,一个是添加页内行序号或所有纪录的序号)
下载地址:
http://www.csdn.net/cnshare/soft/13/13564.shtm
http://www.uepoch.com/
http://sgreport.yeah.net
win98ddk 2002-11-02
  • 打赏
  • 举报
回复
第一个问题我也翘首以待,第二个问题可以在菜单insert->special field->record number field中解决.(用crystal report)
gzqg 2002-11-01
  • 打赏
  • 举报
回复
1、我的解决方法是在记录集中添加空记录(不进数据库),以下代码保证每页十行
RDSCount = rst.RecordCount
RDSWillAddCount = 9 - RDSCount Mod 10

For i = 1 To RDSWillAddCount
rst.AddNew
If i = 1 Then
rst!商品名称 = "以下空白"
Else
rst!商品名称 = ""
End If
next
2、可以在记录集中添加一个字段,用代码加入序号,连到报表;或者可以做一个视图
dai_er 2002-11-01
  • 打赏
  • 举报
回复
谢谢gzqg(星野风流) ,
1、我没搞懂报表细节里是如何循环出记录的,不知道你给的代码应该加在哪里?我加在datareport.show前,可好象还没运行到代码的地方,报表就显示了。
2、记录集里不想加字段了,做个视图是什么意思?

809

社区成员

发帖
与我相关
我的任务
社区描述
VB 多媒体
社区管理员
  • 多媒体
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧