关于数据库打印的问题(100分)

  • 主题发起人 主题发起人 ljt
  • 开始时间 开始时间
L

ljt

Unregistered / Unconfirmed
GUEST, unregistred user!
有一数据库 table1
Datas Name
2001-1-1 abc1
2001-1-1 abc2
2001-2-1 abc3
2001-2-1 abc4
2001-2-1 abc5
有什么办法使报表打印出来的结果是这样
2001-1-1 abc1
abc2
2001-2-1 abc3
abc4
abc5
即相同的只要显示第一个。
 
想用一个数据集控件实现,我想没办法吧.不过我有一个笨办法.
用MIDAS里面的CLIENTDATASET控件,将它的字段设为同你要打印的数据集一样
然后你将你TABLE中的记录一条条的写入CLIENETDATASET中去,当然这个时候你可以控制
如果相同的话就不写入啦.然后你再打印这个CLIENTDATASET里面的资料:)
呵呵,是不是笨了点,不过还很管用,呵呵.
 
使用quickreport可以完成这个功能。
不过要使用master/detail
使用一个tquery sql:select distinct datas from tab
使用一个ttable tablename=tab
建立master/detail
再建立报表，具体的不记得了，不过横简单，试一试肯定没问题
 
quickrep有一个qrgroup的控件，可以实现你的要求，具体用法看demo,有详细例子
 
設一變量﹐每印一行﹐記下那個日期﹐印下一個時與上一個比較﹐
相同的就不印出來
 
使用master/detail
在delphi下有个例子的，你仔细看看。。
 
华君软件园里面的又一个报表控件,VSflexgrid,绝对可以解决你的问题,就是合并
邻近的相通内容的单元格.另外你也可以用支持打印的grid控件,用程序合并
第一列的相同的单元格.Easygrid就可以,具体哪里下载我忘记了.要的话可以给你发一个.
 
FastReport可以
 
Ts Change_On_Install。
Ts All。
接受答案。
 
呵呵，最简单方法应该是用日期分组，把日期放到分组栏中。
或在Onprint中编程，保存现值，当要打印的值和现打印的值相同时，
Value:=''。
 
我用的是QuickReport！^&^
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

万
关于内存数据与 JSON - 万一
回复
0
查看
676
万一
万
不
关于Delphi中DLL,BPL等无法调试的问题 - 不得闲
回复
0
查看
1K
不得闲
不
S
[原]postgreSQL数据库关于事务的几个要点
回复
0
查看
730
SUNSTONE的Delphi笔记
S
S
[原]postgreSQL数据库关于事务的几个要点
回复
0
查看
738
SUNSTONE的Delphi笔记
S
S
[原]Delphi2010中DataSnap高级技术(6)—加强服务程序对访问者的控制能力
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
后退
顶部