QRExpr 之Enabled??? |
|
答題得分者是：pillar62
|
|
TTS
初階會員   發表：72 回覆：66 積分：27 註冊：2003-05-06 發送簡訊給我 |
procedure TrpDiscountAmt.QRLabel50Print(sender: TObject;
var Value: String);
var
tempStr: String;
begin
try
QRExpr2.Enabled:= True;
QRExpr3.Enabled:= True;
QRExpr4.Enabled:= True;
QRExpr5.Enabled:= True; QRExpr2.ResetAfterPrint:= True;
QRExpr3.ResetAfterPrint:= True;
QRExpr4.ResetAfterPrint:= True;
QRExpr5.ResetAfterPrint:= True; tempStr:= FloatToStr(QRExpr2.Value.dblResult - QRExpr3.Value.dblResult -
QRExpr4.Value.dblResult - QRExpr5.Value.dblResult);
Value:= tempStr;
finally
QRExpr2.Enabled:= False;
QRExpr3.Enabled:= False;
QRExpr4.Enabled:= False;
QRExpr5.Enabled:= False;
end;
end; 以上程式是因為小弟一時找不出方式可以對QRExpr元件之Expression做多欄位計算 所以索性用個QRLabel去接每個QRExpr計算過後的值 但是又不想讓User看到那四個QRExpr元件 所以再finally時寫了Enabled:= False 結果卻會造成QRExpr2.ResetAfterPrint:= True 的功用失效 也就是說我的QRLabel內的值會累加!!!
請問為何會這樣呢???
有什麼解決方式呢???
|
|
pillar62
資深會員 發表：9 回覆：324 積分：271 註冊：2002-04-15 發送簡訊給我 |
發表時間：2005-03-09 19:15:20
IP:211.75.xxx.xxx 未訂閱
系統時間：2024-05-15 20:07:57
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |