Table欄位有收入與支出的金額總統計可以統計收入支出無法統計 |
|
答題得分者是：heart75047
|
|
K1086
初階會員   發表：63 回覆：148 積分：42 註冊：2007-04-09 發送簡訊給我 |
[code delphi] procedure TRevPay_PalaceFm1.Table2CalcFields(DataSet: TDataSet); Var TOL1,TOL2:Integer; begin TOL1:=0; TOL2:=0; Table2Total.Value:=Table2.FieldByName('收支金額').AsInteger * Table2.FieldByName('收支數量').AsInteger; Qry_Tab2.close; Qry_Tab2.SQL.Clear; Qry_Tab2.SQL.ADD('SELECT * FROM RevPay_List_Palace WHERE '); Qry_Tab2.SQL.ADD('收支聯號=''' DB_RevID.Text ''' '); Qry_Tab2.Open; Qry_Tab2.FIRST; while Not Qry_Tab2.Eof do begin if Qry_Tab2.FieldByName('收支類別').AsString = '收入' Then ToL1:= ToL1 Qry_Tab2.FieldByName('收支金額').AsInteger * Qry_Tab2.FieldByName('收支數量').AsInteger; Qry_Tab2.Next; end; if Qry_Tab2.FieldByName('收支類別').AsString = '支出' Then ToL2:= ToL2 Qry_Tab2.FieldByName('收支金額').AsInteger * Qry_Tab2.FieldByName('收支數量').AsInteger; Qry_Tab2.Next; end; [/code] 請教各位前輩們，小弟運用上述程式去分別做收入與支出的總統計，卻出現只有統計 [收入]的，[支出]的類別金額無法統計，想必是運算邏輯錯誤吧！但不知要如何改寫，請各位前輩指導，謝謝！ |
|
heart75047
一般會員  發表：9 回覆：13 積分：19 註冊：2010-05-20 發送簡訊給我 |
支出沒有放到迴圈裡面
procedure TRevPay_PalaceFm1.Table2CalcFields(DataSet: TDataSet); Var TOL1,TOL2:Integer; begin TOL1:=0; TOL2:=0; Table2Total.Value:=Table2.FieldByName('收支金額').AsInteger * Table2.FieldByName('收支數量').AsInteger; Qry_Tab2.close; Qry_Tab2.SQL.Clear; Qry_Tab2.SQL.ADD('SELECT * FROM RevPay_List_Palace WHERE '); Qry_Tab2.SQL.ADD('收支聯號=''' DB_RevID.Text ''' '); Qry_Tab2.Open; Qry_Tab2.FIRST; while Not Qry_Tab2.Eof do begin if Qry_Tab2.FieldByName('收支類別').AsString = '收入' Then ToL1:= ToL1 Qry_Tab2.FieldByName('收支金額').AsInteger * Qry_Tab2.FieldByName('收支數量').AsInteger; if Qry_Tab2.FieldByName('收支類別').AsString = '支出' Then ToL2:= ToL2 Qry_Tab2.FieldByName('收支金額').AsInteger * Qry_Tab2.FieldByName('收支數量').AsInteger; Qry_Tab2.Next; end; end; |
|
K1086
初階會員 發表：63 回覆：148 積分：42 註冊：2007-04-09 發送簡訊給我 |
感謝 heart75047 的教導，果然是迴圈錯誤，修正後一切正常，小弟非常感謝！
|
發表時間：2016-01-21 16:50:16
IP:1.168.xxx.xxx 訂閱
系統時間：2024-04-27 8:55:04
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |