当前位置：首页 → 问答吧 → delphi打印報表問題~

delphi打印報表問題~

时间：2011-08-25

来源：互联网

我是用QREPORT作的報表,就是還有一個問題,因為我是用GROUP和DETAIL作主從關系的,我想解決如果某一個GROUP下面沒有DETAIL數據的時候,把這個DETAIL隱藏,這樣要怎么做呢?

作者: lian_tting 发布时间: 2011-08-25

試試在qrgroup的afterprint事件,檢查detail字段是否有值,如沒有把detailband高度為0或enable=false

作者: reverzeng 发布时间: 2011-08-25

引用 1 楼 reverzeng 的回复:
試試在qrgroup的afterprint事件,檢查detail字段是否有值,如沒有把detailband高度為0或enable=false

好的,我去試試,還有一個問題,就是報表里面有一個數據,我想打印成兩列,如下:
項目經理:X-名稱-X X------聯系方式------X 項目副經理:X-名稱-X X-------聯系方式-------X
施工員:X-名稱-X X-- ---聯系方式------X 質檢員:X-名稱-X X------聯系方式-------X
材料員:X-名稱-X X------聯系方式------X 安全員:X-名稱-X X------聯系方式-------X
庫管員:X-名稱-X X-----聯系方式-------X 核算員:X-名稱-X X-----聯系方式-------X
資料員:X-名稱-X X-----聯系方式------X 技朮員:X-名稱-X X------聯系方式--------X

該如何實現呢?謝謝!

作者: lian_tting 发布时间: 2011-08-25

引用 1 楼 reverzeng 的回复:
試試在qrgroup的afterprint事件,檢查detail字段是否有值,如沒有把detailband高度為0或enable=false

還有,問一下,afterprint和beforeprint有什么區別呢

作者: lian_tting 发布时间: 2011-08-25

把quickrep1.pages.columns設為2,報表可打兩欄
一個在列印前發生,一個在列印后發生

作者: reverzeng 发布时间: 2011-08-25

引用 1 楼 reverzeng 的回复:
試試在qrgroup的afterprint事件,檢查detail字段是否有值,如沒有把detailband高度為0或enable=false

我試了,不可以,下面是我的代碼:
with ads_finish do
begin
cl_de_id := fieldbyname('cl_de_id').AsString;
str_sql := 'select * from PPS_DE_DETAIL where de_id='''+cl_de_id+'''';
with ADOC_temp do
begin
close;
commandText := str_sql;
open;
while eof do
begin
QRBand3.Enabled := false;
end;
end;
next;
end;

作者: lian_tting 发布时间: 2011-08-25

delphi打印報表問題~

热门阅读

热门下载