親愛的大大 如圖 字 請問如何將數量累加?

您好: 使用Calculated事件就可以辦到了,參考我下面這篇的設定方式. 在事件中,您可以自由運用該欄位的計算方式. http://delphi.ktop.com.tw/topic.php?topic_id=69210    難道是這樣??

Query.First();
while not Query.eof do 
 begin
  數量:=數量 Query.FieldByName(數量).AsInteger;
  Query.Next();
 end;

發表人 - supman 於 2005/04/23 11:14:24

您好﹗    縱向累計是指某一欄位的合計嗎﹖ Select Sum(欄位名稱) As Total From 資料表 然后FieldByName('Total').AsInteger的值就可以取得合計結果了﹒    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

樓上兄弟的方法不適合query吧，用累加的辦法不錯

-- 3个字段名 OrderID,TotalSum,OutWareDate --分别为订单号,销售金额,出库日期 找个类似的表运行下看看 select Case when Grouping(Mon)=1 then 'LB总计' else Mon end as Mon, Case when Grouping([OrderID])=1 then Mon '合计' when Grouping(Mon)=1 and Grouping(Mon)=1 then '总计' else Max([OrderID]) end as ORDERID, Cast(Sum(JIE) as numeric(18,2))as JIE from (SELECT Substring(Convert(nvarchar,OutWareDate,120),1,7) as Mon,OrderID,TotalSum as JIE FROM SAL_NxOrder ) as ttt Group by Mon,OrderID with RollUP Imagine me and you I do I think about you day and night

------
Imagine me and you
I do
I think about you day and night

procedure TForm1.ADOQuery1AfterPost(DataSet: TDataSet); var SumPlatNo: Real; begin DataSet.First; SumPlatNo := 0; while not DataSet.Eof do begin SumPlatNo := SumPlatNoSumPlatNo DataSet.FieldByName('platno').AsFloat; DataSet.Next; end; end;

謝謝各位大大的解答 我用累加的方式解決了 但我有新的問題,如依照不同客戶的累加又該如何寫ㄋ 如有"客戶邊號" "棧板數量" "出入" a001 100 入 a002 70 入 a002 40 出 a003 60 入 a001 50 出 如何算出 a001庫存=:100-50=50 a002庫存=: 70-40=30 a003庫存=: 60- 0=60 並另存資料表 .