我想寫一支類似庫存自動推算的程式，但遇到相同的料件編號時，必須自動累計扣除未發數。 目前我無法克服到相同料號時，自動累扣的功能。想請教各位頂尖高手協助，不勝感謝!!    資料畫面如附圖: 未發量為依工單單號計算所得的結果 第一筆資料之 結存量=可用庫存+在驗量+在製量+請購量+採購量-未發數 第二筆資料之後之 結存量 = 第一筆資料之預計結存 - 未發數    

Hi:    先以一個料號來說明，若有多個料號，只需注意何時須 Reset ONHAND_QTY 與 ACC_QTY 值即可 1.先定義兩個全域變數 ONHAND_QTY(庫存值)，ACC_QTY(累加值) 2.DataSet 中定義兩個 Calculated Field，Acc_Qty(累加數量) 與 Balance_Qty(結餘數量) 3.DataSet 的 OnCalcFields 去累加 Acc_qty 並計算 Balance_Qty     -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

fennyfan2004您好 Fishman兄已講出概念, 小弟手癢, 就實際做出來給您參考.

var
  fGrand:Double;
  fFirstBalance:Double;
procedure TForm1.ADOTable1CalcFields(DataSet: TDataSet);
var
  balance:double;
begin
  // 累計未發
  fGrand:=fGrand+ADOTable1NotDealOut.AsVariant;
  ADOTable1cGrand.Value:=fGrand;
  // 結存量
  if ADOTable1.RecNo=0 then
  begin
    fFirstBalance:=ADOTable1Stocks.Value+ADOTable1Check.Value+
      ADOTable1Make.Value+ADOTable1Request.Value+ADOTable1Order.Value-
      ADOTable1NotDealOut.Value;
    ADOTable1cBalance.Value:=fFirstBalance;
  end
  else
  begin
    balance:=fFirstBalance-ADOTable1NotDealOUt.Value;
    ADOTable1cBalance.Value:=balance;
  end;
end;

Hi,fishman:    感謝您的大力協助，有一點真是一語驚醒夢中人，    就是全域變數的設定，原本一直在設定local變數去作    加總就是得不到我要的結果。    再次感謝!!!    

pedro:   也感謝您的協助，提供給我另一個新的解法。   再次感謝!!!