請問一下.. 收入 支出 餘額 500 0 500 0 200 300 請問一下餘額的部分要怎麼寫呢... 是要把上一筆的餘額抓出來嗎? 請問要如何做.. 謝謝...

您好﹗    有些不太理解您的問題﹐請問資料表的內容是流水賬的形式嗎﹖即每一筆的餘額 = 上筆餘額 + 本筆收入 - 本筆支出﹖不知這樣理解是否正确﹖若正确﹐可參考如下﹐不知您使用的何種存取方法﹐故以ADOTable結合ADOQuery資料集元件舉例﹐ADOTable和ADOQuery分別連接上相同資料表﹕ 1. 將IDRemark字串變數和IntRemark數值變數宣告在程式中﹐作用分別是記錄當前筆資料的鍵值欄位值和上筆資料餘額

Var
  Form1 : TForm1;
  IDRemark : String;
  IntRemark : Integer;

2. 在ADOTable1的BeforePost事件中先記錄下當前筆資料的鍵值欄位值

begin
  IDRemark := ADOTable1.FieldByName('鍵值欄位名').AsString;
end;

2. 在ADOTable1的AfterPost事件中擷取上筆資料之餘額﹐并做計算﹒

begin
  ADOQuery1.Locate('鍵值欄位名', IDReamrk, []);
  ADOQuery1.Piror;
  IntRemark := ADOQuery1.FieldByName('餘額').AsInteger;
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'Update 資料表名稱 Set 餘額 = '
      '收入   :Amount -支出' Where 鍵值欄位名 = ''' IDReamrk '''';
  ADOQuery1.Parameters.ParamByName('Amount').Value := IntRemark;
  ADOQuery1.ExecSQL;
end;

參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/11/01 10:01:20

------
忻晟

恩.我的意思就是流水帳.. 可是我是了之後...存進去但是沒幫我算餘額ㄋㄟ 但是我大概有概念了.. 我再多試試看... 非常感謝..