全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:532
推到 Plurk!
推到 Facebook!

Table欄位有收入與支出的金額總統計可以統計收入支出無法統計

答題得分者是:heart75047
K1086
初階會員


發表:61
回覆:142
積分:40
註冊:2007-04-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2016-01-21 16:50:16 IP:1.168.xxx.xxx 訂閱

[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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2016-01-21 21:43:19 IP:114.33.xxx.xxx 訂閱
支出沒有放到迴圈裡面

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
初階會員


發表:61
回覆:142
積分:40
註冊:2007-04-09

發送簡訊給我
#3 引用回覆 回覆 發表時間:2016-01-22 13:08:16 IP:1.168.xxx.xxx 訂閱
感謝 heart75047 的教導,果然是迴圈錯誤,修正後一切正常,小弟非常感謝!
系統時間:2017-10-20 5:31:10
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!