我在BeforeEdit裡，加入下面的程式碼 if SubDataQuerym501101.AsString <> '' then begin CheckQuery.SQL.Add(' select count(*) as ABC from sm3031 '); CheckQuery.SQL.Add(format(' where m303103 = ''%s'' ',[SubDataQuerym501101.AsString])); CheckQuery.SQL.Add(format(' and m303114 = %f ',[SubDataQuerym501102.Asfloat])); CheckQuery.Open; if CheckQuery.FieldByName('ABC').Value>0 then begin Showmessage('已有領料資料！不能修改項次！或請洽 MIS ！'); Abort; end; CheckQuery.Close; end; 我這樣寫，我所有的欄位皆可不修改， 但我現在只要讓其中的某一個欄位不可改，其餘皆可修改，要如何加程式碼?

啊，不好意思，寫錯了 ============================ 我這樣寫，我所有的欄位皆不可以修改， 但我現在要讓其中的某一個欄位不可改，其餘皆可修改，要如何加程式碼?

if dbgrid1.SelectedField.FieldName <>'Field' then begin if SubDataQuerym501101.AsString <> '' then begin CheckQuery.SQL.Add(' select count(*) as ABC from sm3031 '); CheckQuery.SQL.Add(format(' where m303103 = ''%s'' ',[SubDataQuerym501101.AsString])); CheckQuery.SQL.Add(format(' and m303114 = %f ',[SubDataQuerym501102.Asfloat])); CheckQuery.Open; if CheckQuery.FieldByName('ABC').Value>0 then begin Showmessage('已有領料資料！不能修改項次！或請洽 MIS ！'); Abort; end; CheckQuery.Close; end; end; end; ~悠遊法國號~

narcysion 你好:    DataSet 的 BeforeEdit Event 好像不太恰當.    試試看用 TDataSource 的 OnDataChange Event.    

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  if (Field<>nil)and(Field.FieldName = '項次') then begin
    showmessage('項次 Changed.');
    ...
  end;
end;

Hi  小弟淺見 FieldName='Field1'>~悠遊法國號~ 發表人 - yachanga 於 2004/04/05 09:11:16 發表人 - yachanga 於 2004/04/05 09:20:34

很感謝大家的回答，但我要的做法是: 1.先搜尋有無領料的資料。 2.無的話任何資料皆可修改，包含項次這個欄位也可改。 3.若有領料資料，則user若要去修改項次這個欄位的話，則show出錯誤的訊息，並且跳出。 4.我目前比較不懂的是，若搜尋到有領料資料，我該如何判斷，user有無去動到項次這個欄位，且要如何禁止user去動到該欄位，該如何做判斷。 5.我用的元件是TDBCtrlGrid，並不是用DBGrid。

Hi narcysion您好: 您說用的元件是TDBCtrlGrid，並不是用DBGrid。 所以是不是有另外拉一個TDBEdit 物件放在 TDBCtrlGrid..DataField Property 設為 項次欄位??    如果是 小弟建議可以使用 KeyPress Event.. 方法很多 以下為可行之一  >>~悠遊法國號~ 發表人 - yachanga 於 2004/04/05 13:09:26