報表中如何使欄位只秀一次 |
答題得分者是:careychen
|
darkblackword
一般會員 發表:3 回覆:7 積分:2 註冊:2008-10-12 發送簡訊給我 |
各位大大您好~
我希望我的報表欄位(CRNCY)只出現一次..但我不知道該從哪裡下手~~ 在哪寫程式...還有要下什麼指令... [code delphi] var TSTM001QRP: TTSTM001QRP; implementation uses SWDBDM; {$R *.DFM} procedure TTSTM001QRP.QRBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin IF REPSQLOP_CD_NO.Value = '0' THEN QRLabel6.Caption :='未上市/上櫃'; IF REPSQLOP_CD_NO.Value = '1' THEN QRLabel6.Caption :='上市'; IF REPSQLOP_CD_NO.Value = '2' THEN QRLabel6.Caption :='上櫃'; end; procedure TTSTM001QRP.QRBand2BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin QRLabel5.Caption := REPSQLCRNCY.Value ' 小計'; end; procedure TTSTM001QRP.QuickRepBeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin Company_NameLB.caption := SWDM.DataBase.Company_Cname; UserLB.caption := '印表者 :' SWDM.DataBase.CName; end; procedure TTSTM001QRP.Company_NameLBPrint(sender: TObject; var Value: String); begin VALUE := '股份有限公司'; end; procedure TTSTM001QRP.Report_NameLBPrint(sender: TObject; var Value: String); begin VALUE :='債卷代碼資料'; end; end. [/code] 編輯記錄
|
careychen
尊榮會員 發表:41 回覆:580 積分:959 註冊:2004-03-03 發送簡訊給我 |
|
darkblackword
一般會員 發表:3 回覆:7 積分:2 註冊:2008-10-12 發送簡訊給我 |
|
Coffee
版主 發表:31 回覆:878 積分:561 註冊:2006-11-15 發送簡訊給我 |
問題已解決仍請將原問題(標題/內容)描述清楚,若未涉機密亦請分享答案,以便其它人若有類似問題可以查詢。
===================引 用 darkblackword 文 章=================== 謝謝大大我已找到答案~~ 我的主要問題是:主要報表的標題(不是表頭)只出現一次就好! 目前程式已修改好了,謝謝!!
------
不論是否我發的文,在能力範圍皆很樂意為大家回答問題。 為了補我的能力不足之處,以及讓答案可以被重複的使用,希望大家能儘量以公開的方式問問題。 在引述到我的文時自然會儘量替各位想辦法,謝謝大家! |
darkblackword
一般會員 發表:3 回覆:7 積分:2 註冊:2008-10-12 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |