附加檔案：46b2b274a5656_錯誤訊息框.doc

編輯記錄

它已經告訴你了 : 引數中可能發生類型錯誤, 超過可接受的定義範圍, 或與其他引數發生衝突

引數中可能發生類型錯誤 => 例如引數是整數, 你傳給它浮點數
超過可接受的定義範圍 => 例如他是 10 個項目的陣列, 你傳給它陣列的第11項

如果您還是不懂, 請單步追蹤, 把出問題的那行和附近程式碼貼出來, "或許" 可能告訴您該怎麼改

或者方便的話, 整個程式碼壓縮傳上來

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

編輯記錄

請列出程式碼

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

編輯記錄

請問我要如何再把程式上傳呢? 
===================引 用 pcboy 文 章===================

它已經告訴你了 : 引數中可能發生類型錯誤, 超過可接受的定義範圍, 或與其他引數發生衝突

引數中可能發生類型錯誤 => 例如引數是整數, 你傳給它浮點數
超過可接受的定義範圍 => 例如他是 10 個項目的陣列, 你傳給它陣列的第11項

如果您還是不懂, 請單步追蹤, 把出問題的那行和附近程式碼貼出來, "或許" 可能告訴您該怎麼改

或者方便的話, 整個程式碼壓縮傳上來

您好: 
採用修改方式 , 檔案已更新

大姊～你列出的程式碼也太可觀了吧！20頁！以我來說看到那麼多的碼就有恐懼症！可否精簡一點？！
簡單的敘述在關鍵點發生的狀況，以及發生狀況前後的函數呼叫部分即可～這麼大篇，別的版大及網友看到會怕！
不會貼程式碼嗎？在發文的網頁上有一個程式碼區塊功能，選擇你的程式碼種類後，文字編輯器中會產生一段草稿語言段落，把你的程式碼貼在裡面即可。
===================引 用 rita.i880 文 章===================
您好:
採用修改方式 , 檔案已更新

SORRY !!!
感謝各位版主的幫忙, 會造成這樣子的一個狀況, 可能是程式控制上有衝突所導致, 目前正往這個方向進行中.....

這段看不到有什麼特別會令程式當掉原因
是不是在別的地方出錯,IDE誤判在這一段?
通常用逐步Trace是最有效可以看到錯誤的方式之一,試試

procedure TFSAL210.Query_SOrdDAfterScroll(DataSet: TDataSet);
begin
inherited;
if Query_SOrdM.State in [dsInsert,dsEdit] then begin
Query_SOrdD.Edit;
end;
//**執行到這裡就會當了
showmessage('afterscroll--' DataSet.FieldByName('Seq').AsString '--' DataSet.FieldByName('SeqSub').AsString);
Query_SOrdD.FieldByName('Seq').ReadOnly:=True;
Query_SOrdD.FieldByName('SeqSub').ReadOnly:=True;
if Query_SOrdD.FieldByName('SeqSub').AsString='01' then begin
Query_SOrdD.FieldByName('ProdNo').ReadOnly:=False;
Query_SOrdD.FieldByName('OrdQty').ReadOnly:=False;
Query_SOrdD.FieldByName('PackNo').ReadOnly:=False;
Query_SOrdD.FieldByName('Packqty').ReadOnly:=False;
end else begin
Query_SOrdD.FieldByName('ProdNo').ReadOnly:=True;
Query_SOrdD.FieldByName('OrdQty').ReadOnly:=True;
Query_SOrdD.FieldByName('PackNo').ReadOnly:=True;
Query_SOrdD.FieldByName('Packqty').ReadOnly:=True;
end;
showmessage('afterscrool');
end;

感恩 pedro756901  用心看我的程式