請教各位先進 小弟在處理下面程式碼時，發生無法識別的錯誤 資料庫是MSSQL，資料表為MASTER-DETAIL

procedure TSale.tempExit(Sender: TObject);
begin
  DM.Tmp.Close;
  DM.Tmp.SQL.Clear;
  DM.Tmp.SQL.Add('select * from sale110 where sale_no=''' DBEdit1.Text '''');
  DM.Tmp.Open;
  if length(temp.Text) = 11 then
  begin
    if DM.Tmp.Locate('product_no',temp.Text,[]) then
    begin
      showmessage('產品編號重複');
      temp.Text:='';
    end
    else
    begin
      DM.Sale110.Append;
      DM.Sale110.FieldByName('product_no').Value:= temp.Text;
      DM.Sale110.FieldByName('product_num').Value:= 1;
      temp.Text:='';
      temp.SetFocus;
    end;
  end
  else if length(temp.Text) = 6 then
  begin
    DM.Sale100.Edit;
    DBEdit3.Text:= temp.Text;
    temp.Text:='';
    temp.SetFocus;
  end;
end;

其錯誤是在紅色部分產生的 之前出現這ㄍ錯誤是因為DETAIL資料表的KEY沒設好 但這次真的不知道為何產生此問題？？ 所以請教各位前輩

您好!    在您的程式碼似乎沒有看到temp.Text有指定值, 之前的SQL查詢只是利用DBEDit1.Text來作為查詢的條件, 但之后的指定FieldByName('product_no')的值為temp.Text, 此時的temp并不存在.    參考看看!    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

感謝您的回應 但若temp.Text沒值 根本不會錯在那ㄍ地方阿 因為if length(temp.Text) = 11 then

.Value 用 .AsString 試試, 猜的 --- 歡迎光臨 >

感謝回應 那方法我是過了是不行的 我曾經將ADO元件重拉、重設定 試著新增一筆可以 但第二筆就又出現該錯誤 之後就不能再新增了

再補充說明一下 是在INSERT觸發時產生的錯誤 錯誤為『無法識別的錯誤』 應該跟資料庫的KEY有關sale100 --> sale_no Sale110 -->Sale_no product_no 資料庫的設法應該無誤 猜想問題是出在資料庫連結元件上， 但卻又找不出原因，請教各位前輩Master-Detail 在設定時有哪些需要注意的地方

procedure TSale.tempExit(Sender: TObject); begin DM.Tmp.Close; .//這裡照你原來的寫法 temp.SetFocus; end; DM.Sale100.Post; end; 加入紅色的那一行試看看..TRY TRY SEE...

感謝chih回應 但我的錯誤在       DM.Sale110.Append;       DM.Sale110.FieldByName('product_no').Value:= temp.Text;[red] 紅色部分就產生了 根本無法到您說的[red]DM.Sale100.Post;

您好!    先問一下, temp的Text值是從哪里取得的?     如果确定資料表的Key設定沒有問題, 請仔細檢查一下資料表中對應欄位('product_no')有無寫錯(与程式碼中的欄位名稱有誤差), 其欄位形態是否為字串形態(String). 還有一個需要注意的地方, 如同hagar版主的回复, 雖然和您目前的問題無關, 但是盡量使用AsString的方法來指定形態會比較好, 其還有一個特性可將Null值自動轉為空字串, 因為在資料異動作業時, 使用Value時, 若值為Null, 資料表可能會出錯. 參考看看! ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

您好 我TEMP TEXT 的值是由條碼機取得 條碼機讀取時會將資料讀入並做enter的動作 故將事件寫在temp.exit

if length(temp.Text) = 11 then 這樣做判斷如果temp.Text 如果是11各空白也會觸發,造成'product_no'為空值, 建議改為if trim(temp.Text) = 11 then 來做看看.. 另外DM.Sale110.FieldByName('product_no').Value:= temp.Text; 改為 DM.Sale110.FieldByName('product_no').AsString:= Trim(temp.Text); 底下之 if length(temp.Text) = 6 then 如同... TRY TRY SEE...

引言: 您好 我TEMP TEXT 的值是由條碼機取得 條碼機讀取時會將資料讀入並做enter的動作 故將事件寫在temp.exit

試了好久 發現好像不是程式的問題 同樣的資料庫附加到公司的SEVER上便可以順利執行 而家裡的SQL好像壞了 但重新安裝也一樣 無論如何感謝大家的回應