之前這個討論區裡面有人問到DBGRID的加總問題 有一位chih大大這樣回答 貼一段我的做法給你參考看看...在Detailafterpost事件... 前題是你的DBGrid是Detail... procedure TForm1.DetailSQLAfterPost(DataSet: TDataSet); var Lock_Record: TBookMark; WTOTAL_PRICE: REAL; begin Lock_Record := DetailSQL.GetBookMark; DetailSQL.DisableControls; DetailSQL.first; WTOTAL_PRICE:= 0; while not DetailSQL.eof do begin //加總DBGRID的金額 WTOTAL_PRICE := WTOTAL_PRICE DetailSQLPRICE.Value; DetailSQL.Next; end; DetailSQL.first; DetailSQL.EnableControls; MasterSQL.Edit; MasterSQLtol_price.Value := WTOTAL_PRICE; DetailSQL.FreeBookMark(Lock_Record); end; 可是我有一個小小的笨問題想請教 就是啊...... procedure TForm1.DetailSQLAfterPost(DataSet: TDataSet); 這個函式是怎麼呼叫出來的啊??? 謝謝大家!!

procedure TForm1.DetailSQLAfterPost(DataSet: TDataSet);    這樣的狀況是指在 Form1 上有一個 DetailSQL 的 DataSet (可能是 TQuery, 或是 TDataSet 等), 它的事件(event) 中的 AfterPost 這個觸發程式. 明白了嗎? 如圖, 在該 event 的地方 double click 即可! 發表人 - timhuang 於 2003/11/28 00:00:32

謝謝大大的講解 已經知道函式做什麼了 可是還有一個問題 就是啊..... MasterSQL.Edit; MasterSQLtol_price.Value := WTOTAL_PRICE; 這是啥東東啊 我看了很久 還是看不出個所以然來 因為我不知道 MasterSQL 這是哪個東東的宣告 又是在哪宣告的 麻煩大大了

您好﹗    MasterSQL.Edit; //將MasterSQL資料集元件進入編輯狀態（dsEdit） MasterSQLtol_price.Value := WTOTAL_PRICE; //tol_price是指MasterSQL資料集元件對應的資料表中某個欄位的名稱﹐Dataset支援這種指定欄位的寫法﹐此句的用意是將WTOTAL_PRICE的值賦予資料表的tol_price欄位 參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

補充一下cashxin2002大大的講法.. MasterSQL.Edit;//如cashxin2002所述 MasterSQLtol_price.Value := WTOTAL_PRICE; 這一句我前面有宣告了WTOTAL_PRICE用來將DBGRID的金額加總後寫到單頭檔裡面tol_price的欄位,也可以這樣寫 MasterSQL.FieldByName('tol_price').Value := WTOTAL_PRICE; Hope It Help You.. TRY TRY SEE

引言: 因為我不知道 MasterSQL 這是哪個東東的宣告 又是在哪宣告的 麻煩大大了

MasterSQL 是一個放在 form 上面的 Dataset 元件, 只是命名為 MasterSQL, 在我的前例是叫做 Query1 , 明白嗎?

謝謝各位大大的精闢見解 我再試試看 若有任何的不懂 再來請教各位 謝謝