我得此form 是設計成上面是進貨主檔、下面是進貨明細，兩者作mastersource
我的想法是讓使用者去選擇他想退哪筆進貨訂單裡的產品(目前只能刪除單筆)
可是直行時卻出現stack overflow 讓我傷腦筋
麻煩各位大大能盡快幫我想這個問題
因為再過2~3天就要交了...
我會很感激你們的!!

[code delphi]
procedure TForm10.BitBtn5Click(Sender: TObject); // 我在edit2.text 打欲退數量
ado.ADOpurdetail.Edit;
ado.ADOpurdetail.FieldByName('數量').AsInteger := a;
ado.ADOpurdetail.post;
end;
procedure TForm10.BitBtn6Click(Sender: TObject); // 退貨單筆紀錄
begin
Found:=ado.adopurdetail.Locate('產品編號',edit1.Text,[lopartialkey]); // 以下是讓這些物件隱藏及顯示
label3.visible := false;
label4.visible := false;
combobox1.visible := false;
edit1.visible := false;
bitbtn6.Visible := false;
label5.visible := true;
edit2.visible := true;
bitbtn5.Visible := true;
end;
end;[/code]

1.是否有去查證發生 stack overflow 是在那一段程式?
2.拿掉 bookmark 的用法, 改用其他方式試試看
===================引 用 ppjuns123 文 章===================

我得此form 是設計成上面是進貨主檔、下面是進貨明細，兩者作mastersource
我的想法是讓使用者去選擇他想退哪筆進貨訂單裡的產品(目前只能刪除單筆)
可是直行時卻出現stack overflow 讓我傷腦筋
麻煩各位大大能盡快幫我想這個問題
因為再過2~3天就要交了...
我會很感激你們的!!

[code delphi]
procedure TForm10.BitBtn5Click(Sender: TObject);?//?我在edit2.text 打欲退數量
? ado.ADOpurdetail.Edit;
? ado.ADOpurdetail.FieldByName('數量').AsInteger := a;
? ado.ADOpurdetail.post;
end;
procedure TForm10.BitBtn6Click(Sender: TObject);??? //?退貨單筆紀錄
? begin
??? Found:=ado.adopurdetail.Locate('產品編號',edit1.Text,[lopartialkey]);? //?以下是讓這些物件隱藏及顯示
??? label3.visible := false;
??? label4.visible := false;
??? combobox1.visible := false;
??? edit1.visible := false;
??? bitbtn6.Visible := false;
??? label5.visible := true;
??? edit2.visible := true;
??? bitbtn5.Visible := true;
? end;
end;[/code]
?

會發生 stack overflow 是因為有段程式進入了無窮迴圈, 導致某個記憶體變數溢位,
檢查一下 TADOQuery 的各個事件內, 是否有再度呼叫
你所貼上來的 BitBtn5Click & BitBtn6Click 等事件的程式,
要不就是你所提供的程式碼不夠 or 方向不對 ....

你們說的沒錯就是以下這兩行程式的問題。
因為資料庫很多筆資料，一直做加總，且主檔的總金額也需要靠這兩行做累加
我還設定當一筆資料改變總額就要跟著變，也就是這兩行都要一直跑、一直呼叫，所以才stack overflow吧!!
謝謝你們，以解決了。
[code delphi]
procedure TADO.ADOorddetailCalcFields(DataSet: TDataSet); //訂貨明細
begin
// adoorddetail.FieldByName('小計').asinteger := adoorddetail.FieldByName('單價').AsInteger * adoorddetail.FieldByName('數量').AsInteger - adoorddetail.FieldByName('折扣').AsInteger;
end;
procedure TADO.ADOpurdetailCalcFields(DataSet: TDataSet); //進貨明細
begin
// adopurdetail.FieldByName('小計').asinteger := adopurdetail.fieldbyname('成本').AsInteger * adopurdetail.fieldbyname('數量').AsInteger ;
end;[/code]

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.