主从数据库打印(50分)

  • 主题发起人 主题发起人 anson
  • 开始时间 开始时间
A

anson

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大侠:最近我遇到主从数据库打印,如果实现以下方式打印怎样实现(第一条记录必须在同一行)。
db1 db2
-------------------------------------------------------------
A1 A2 A3 B1 B2 B3
aa vb ccc bbb 334 324324
fds sdf sdjfs
kdj dkfj kmf
bb df df dfkj kjdf sdkfj
dkjf dkjf kjfk
我用QRSubDetail1,打印结果第一条记录不能在同一行(结果如下:)
A1 A2 A3 B1 B2 B3
aa vb ccc
bbb 334 324324
fds sdf sdjfs
kdj dkfj kmf
bb df df
dfkj kjdf sdkfj
dkjf dkjf kjfk
 
自己控制打印,或使用其它控件,或将其写入XLGRID后用XLGRID打印,或。。。。。。
 
可以用join 成一个视图
就可以变成如下
A1 A2 A3 B1 B2 B3
aa vb ccc bbb 334 324324
aa vb ccc fds sdf sdjfs
aa vb ccc kdj dkfj kmf
bb df df dfkj kjdf sdkfj
bb df df dkjf dkjf kjfk
在procedure TQuickReport1.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
若上一行与当前行相同的就赋空值
end;
 
若上一行与当前行相同的就赋空值,这样不行
 
procedure Tqr_bb.QRDBText1Print(sender: TObject;
var Value: String);
begin
// tt为上一条记录的值;
if tt=values then
values='' else
tt=value;
end;
 
建议使用[red]BAND-CHILDBAND[/red]
模式
 
多人接受答案了。
 
用fastreport 作,单击主表数据字段右键压缩重复值,就可以达到效果。
 
后退
顶部