各位先進高手們.... 小弟有一事請教...TDBGrid元件有個參數可設定是否可編輯.ReadOnly 其方式是對所有TDBGrid內的欄位做控製... 今我以據某欄位的值來設定其ReadOnly的值... 程式碼是加在TDBGrid對應的TDataSource完件的onDataChange事件中... if Tab_Monthly.FieldByName('CLOSEED').AsString='Y' then DG_Month.ReadOnly:=True else DG_Month.ReadOnly:=False; 雖然這樣有達到我要的無法編輯的效果...但如果我TDBGrid內的一個欄位不想受 ReadOnly值的影響不管如其值是真或假都一樣要可以編輯是否有方法可以達到呢???

for j := 0 to FieldCount-1 do  begin             if j=0 then   Fields[j].ReadOnly:=FALSE   else              begin    if Tab_Monthly.FieldByName('CLOSEED').AsString='Y' then       Fields[j].ReadOnly:=True    else       Fields[j].ReadOnly:=False;      end;         end;    

------
︿︿

感謝cmf再次熱情回應~~~ 但程式碼要加在那??? 今若我的TDBGrid有~~~ |A|B|C|D|E|CLOSEED| 6欄.... 當CLOSEED='Y'時.... ABCDE等五欄不可編輯...當CLOSEED<>'Y'時則反之 但CLOSEED欄不管在任何情況下都可以編輯!!!

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField); var i:integer; begin if Field.FieldName='CLOSEED' then begin if Field.AsString='Y' then begin for i := 0 to DataSource1.FieldCount - 2 do DataSource1.Fields[i].ReadOnly:=True; end else begin for i := 0 to DataSource1.FieldCount - 2 do DataSource1.Fields[i].ReadOnly:=FALSE; end; end; end; 發表人 - cmf 於 2003/05/22 15:06:11

------
︿︿

指定欄位不受影響可在DBGrid的OnColEnter事件中設置 例如 控制第1欄位 if (Sender as TDBGrid).DataSource.DataSet.RecNo = 1 then ReadOnly := True;