报表制作的问题?急!!!!!

綏子 2002-10-22 12:41:39
QuickRep1上放了一个Qrband1类型为rbPageHeader,用于显示标题

一个Qrband2 类型为rbDetail,用于显示数据。数据源datasource,adoquery1.

一个Qrband3, 类型为rbSummary 用来显示汇总数据.

做成如下格式;
第一页显示如下
标题
编号 单价
A0001 2
A0002 3
A0003 5
合计 0

第二页显示如下
编号 单价
A0004 2
A0005 3
A0006 5
合计 20

一页显示3条明细记录。


我在 QRband2上放了一个QRLabel,用于在Quickrep1的
QuickRep1NeedData事件里把数据动态传给Qrlabel.

问题: 每页显示3条明细这个我实现了。但成了这样的结果.

第一页显示如下
标题
编号 单价
A0001 2
A0002 3
A0003 5
//合计没有了。 我使用了newqpage,所以合计不见了,
怎样让NeedData事件里读完三条记录后,
把rbSummary里的内容打出来,再newpage.
第二页显示如下
编号 单价
A0004 2
A0005 3
A0006 5
合计 20


谢谢大家!
...全文
20 14 打赏 收藏 转发到动态 举报
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
iceshape1 2002-10-25
  • 打赏
  • 举报
回复
因为你的记录没有以3有联系的规则所以用SQL语句很难实现
同样在QR里也无法实现
有一个办法是在每一页自己计算
另一种方法是做一个中间表,存放你的这种每三条纪录一个合计的格式
不过这样做就要做额外的数据库操作了
我以前做过这种复杂报表,都是用第二种方法实现的
希望对你又帮助
ihihonline 2002-10-22
  • 打赏
  • 举报
回复
自己可以设置;
动态生成就成;
------------------------------------------------
招聘斑主

我们可以一起交流;
呵呵
www.nxrs.net/bbs
谢谢,别抛砖
blazingfire 2002-10-22
  • 打赏
  • 举报
回复
可以用TQuery来作为你的Report的DataSet呀把如下这条记录
"合计 20"<---这个可以作一条记录呀union到以上的结果集中呀

Query1.SQL.Text:=' select 编号,单价 from tbl'+
' union'+
' select 编号=''合计'',sum(单价) from tbl';
不就行了
上海老李 2002-10-22
  • 打赏
  • 举报
回复
很久没做!这两天出差!明天给你试试再告诉你!我以前好像没用两个Qrband
My_first 2002-10-22
  • 打赏
  • 举报
回复
up
綏子 2002-10-22
  • 打赏
  • 举报
回复
up
綏子 2002-10-22
  • 打赏
  • 举报
回复
为什么执行newpage的时候 页脚可以打印。而rbSummary不打印。

如果能实现分页的时候打印 rbsummary,再打下一页,

可以实现的话我的问题也就解决了。
ihihonline 2002-10-22
  • 打赏
  • 举报
回复
其实,只要你可以确保每页都显示为三条的话,可以用它自已的Hand实现,也不用动态写了,但是如果你要是紧跟在后边的话,我觉的你还是动态的写;
------------------------------------------------
招聘斑主

我们可以一起交流;
呵呵
www.nxrs.net/bbs
谢谢,别抛砖

日总是我哥 2002-10-22
  • 打赏
  • 举报
回复
我想你应该转变一下思路!!!

这样实现不了的``````````~~~
日总是我哥 2002-10-22
  • 打赏
  • 举报
回复
第一页显示如下
标题
编号 单价
A0001 2
A0002 3
A0003 5
//合计没有了。 我使用了newqpage,所以合计不见了,
怎样让NeedData事件里读完三条记录后,
把rbSummary里的内容打出来,再newpage.
第二页显示如下
编号 单价
A0004 2
A0005 3
A0006 5
合计 20 <-----------这个值是不是也 应用为10??!

//你为什么非要三条?
日总是我哥 2002-10-22
  • 打赏
  • 举报
回复

却实是一大段话:)
我还没看完呢~~~mark一下先
綏子 2002-10-22
  • 打赏
  • 举报
回复
或许是大家看到这么一大段话,就吓倒了。

其它我为了表达清楚我的问题,才写这么多。 我就不信没人会
綏子 2002-10-22
  • 打赏
  • 举报
回复
up
綏子 2002-10-22
  • 打赏
  • 举报
回复
你好!
可以看一下吗?
http://expert.csdn.net/Expert/topic/1114/1114393.xml?temp=.6337854

动态生成。在报表的 Onneeddata事件里付值。


一页显示固定的列数,比如3条,再newpage.第二页显示4-6条

这里有一个问题,执行newpage时,它会取出下一页的内容.
但是当前页的rbSummary没有打印。

怎样让先取出3条记录-->取出rbsummary,再分页

谢谢

5,392

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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