在ADOdetail 表中insert一條記錄, 如何在afterpost后統計某一個字段的數据和 ? Harry Zhang

------
Harry Zhang

您好：  

Var
  i:integer;
begin
i:=0;
adodataset6.first;
while not adodataset6.Eof do 
begin
  i:= i adodataset6.FieldByName('total').value;
  adodataset6.next;
end;
 

~~應無所住而生其心~~

能否用一條語句? 其實我只想實現一個主從表,在從表insert一條記錄,主表的數据會更新(所有從表進的數減去出的數).我該如何去實現?謝 Harry Zhang

------
Harry Zhang

DM.ADOQfixturecal.Value:=dm.ADOdetailQtyin.Value-Dm.ADOdetailQtyout.Value; 這條語句是不是對一條記錄進行記算? Harry Zhang

------
Harry Zhang

沒錯 只對一筆資料算 你要合計 用SQL語法處理

 SELECT         SUM(A欄位- B欄位) AS Total
FROM             TABLE
where 對應主表單號 

這樣再去取出Total就可以了 ~~應無所住而生其心~~

補充一下, 另一種做法: 用 Database 的 Trigger (觸發器), 建在 Detail Table, 當 Insert/Update/Delete 時, 都去 Update Master Table 的總合欄位, 這樣做, 不管是否是用你的程式, 去異動 Detail Table , 都能維持這個 "加總" 的關係.

可否贴出代码?谢谢,在线等! Harry Zhang

------
Harry Zhang

代碼 ?    Oracle PL/SQL :

create or replace trigger [TriggerName]
After Insert or Update or Delete
on DetailTable
begin
  update MasterTable set SumColumn = (select sum(DetailColumn) from 
    DetailTable where MasterTable.PK=Detail.FK and
    ((Detail.PK=:New.PK) or (Detail.PK=:Old.PK));
end;

MSSQL / Sybase T-SQL :

create trigger [TriggerName] on DetailTable
for Insert , Update , Delete
as
begin
  update MasterTable set SumColumn = (select sum(DetailColumn) from 
    DetailTable where MasterTable.PK=inserted.FK or MasterTable.PK=deleted.FK
end

發表人 - Mickey 於 2004/03/12 23:34:14