oncalcFields |
尚未結案
|
monkeyhung
一般會員 發表:51 回覆:55 積分:21 註冊:2006-12-16 發送簡訊給我 |
各位大大想讓user輸入完數量、單價、折扣後,小計及累計金額會自動算出來 我這樣的寫法有啥錯嗎? var Sum:=integer procedure TFPUR220.Query_PUR200DDiscountValidate(Sender: TField); begin inherited; Query_PUR200D.FieldByName('SubTot').text :=((Query_PUR200D.FieldByName('Qty').Value) *(Query_PUR200D.FieldByName('PriceU').Value)-(Query_PUR200D.FieldByName('Discount').Value)); end; procedure TFPUR220.Query_PUR200DPriceUValidate(Sender: TField); begin inherited; Query_PUR200D.FieldByName('SubTot').text :=((Query_PUR200D.FieldByName('Qty').Value) *(Query_PUR200D.FieldByName('PriceU').Value)); end; 會寫上面這二行主要是因為我想說,折扣是不一定會輸入的,所以會寫這二行的 procedure TFPUR220.Query_PUR200DCalcFields(DataSet: TDataSet); begin inherited; Sum:=Sum Query_PUR200DSubTot.AsInteger; Query_PUR200DSum.Value:=Sum; end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |