急......Master/Detail QuickRep有關SubDetail的資料筆數小計問題 |
尚未結案
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
chih 前輩安安. 小弟是新手,請問跳頁條件該在哪里設定,如遵前輩所授,設一全域全數,請問該程式碼該寫在何處,程式碼之前有何宣告? 感恩賜教!
引言: 你的跳頁條件應該是部門代號吧...設一定全域變數xCount, Group Head-BeforePrint>xCount:=0 rbDetailAfterPrint->xCount:=xCount 1 Group Footer BandBeforePrint用一各QRLabel.Caption:=inttostr(xCount) TRY TRY SEE忻晟
------
忻晟 |
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
hi..cashxin2002
跳頁條件->QRGroup有一各Expression,裡面要設定部門代號這各欄位..
Var
Form1: TForm1;
xCount:integer;//全域變數
Implementation
{$R *.dfm}
.
.
.
這樣不知道清不清楚ㄋ??
TRY TRY SEE
引言: chih 前輩安安. 小弟是新手,請問跳頁條件該在哪里設定,如遵前輩所授,設一全域全數,請問該程式碼該寫在何處,程式碼之前有何宣告? 感恩賜教!發表人 - chih 於 2003/03/28 20:31:27 |
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
前輩安安. 小弟將程式碼Post,請前輩指教.
var xCount:Integer;
.
.
.
procedure TForm13.GroupHeaderBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
xCount:=0;
end; procedure TForm13.DetailBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
xCount:=xCount+1;
end; procedure TForm13.GroupFooterBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
QRLabel16.Caption:=inttostr(xCount);
end; 小弟已照前輩所授更新此程式碼,但在GroupFooterBand里的QRLable16.Caption
所顯示的值都為0,如果將以上TForm13.DetailBand1AfterPrint 這段程式碼寫在
QRSubDetailAfterPrint事件中,QRLable16.Caption顯示的所有值都會為1,不知是哪里的問題?另外,請問在執行此程式時,在列印預覽的視窗中就應該可以看到
其中的每個SubDetail合計的數值了嗎?還是一定要在列印后才看得到? 謝謝賜教.
引言: chih 前輩安安. 小弟是新手,請問跳頁條件該在哪里設定,如遵前輩所授,設一全域全數,請問該程式碼該寫在何處,程式碼之前有何宣告? 感恩賜教!忻晟引言: 你的跳頁條件應該是部門代號吧...設一定全域變數xCount, Group Head-BeforePrint>xCount:=0 rbDetailAfterPrint->xCount:=xCount 1 Group Footer BandBeforePrint用一各QRLabel.Caption:=inttostr(xCount) TRY TRY SEE忻晟
------
忻晟 |
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
T.J.B
版主 發表:29 回覆:532 積分:497 註冊:2002-08-14 發送簡訊給我 |
hello cashxin2002 : 1:
你把 TForm13.GroupHeaderBand1BeforePrint 事件裡的程式碼
搬到TForm13.QuickRep1BeforePrint此事件裡 2:
然後TForm13.DetailBand1AfterPrint 事件裡的程式碼
搬到TForm13.DetailBand1BeforePrint 此事件裡 3:
TForm13.GroupFooterBand1BeforePrint 事件裡的程式碼不要動 要注意
procedure TForm13.DetailBand1AfterPrint(Sender: TQRCustomBand; BandPrinted: Boolean); begin xCount:=xCount 1; end;做加1的動作必須是你放該欄位值的那個band 如此應該可以了 天行健 君子當自強不息~~@.@
------
天行健 君子當自強不息~~@.@ |
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
|
T.J.B
版主 發表:29 回覆:532 積分:497 註冊:2002-08-14 發送簡訊給我 |
引言: 真的謝謝各位前輩的指教﹒﹒﹒ 為了這個問題﹐已經兩天沒有好好睡覺了﹐目前測試的結果已經可以顯示其Subdetail中的資料筆數小計了﹐但出現這樣一個問題﹐如果資料庫里沒有資料的話﹐也會顯示一筆資料﹐但當資料庫里有資料的時候﹐所有的小計顯示就正常了﹒﹒﹒ 還要再謝謝>>< face="Verdana, Arial, Helvetica"> 如果當資料庫沒有資料的時候 你繼續讓報表跑出來 就會有也會顯示一筆資料的情形產生(應該是說小計還是1) 因為是這個原因 xCount:=xCount 1; 所以你要做判斷 如果有資料 才跑報表 沒有資料的話 就擋掉 才不會有這種情形產生 天行健 君子當自強不息~~@.@
------
天行健 君子當自強不息~~@.@ |
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |