在dbgird中如何设置某一列不能被修改(100分)

  • 主题发起人 主题发起人 ayu310
  • 开始时间 开始时间
1、在Dbgrid中建立永久字段;
2、选择你要不能修改的字段,设置其Readoly为True;
 
在数据打开后的事件里:
procedure TForm1.Table1AfterOpen(DataSet: TDataSet);
begin
Table1.FieldByName('kk').ReadOnly := False;
end;
 
procedure TfrmQuery.dbgEasyColEnter(Sender: TObject);
begin
with dbgEasy do
begin
if SelectedField = AQEasy.FieldByName('moneyleft') then
options := options - [dgediting]
else
options := options + [dgediting];
end;
end;
 
1、在Dbgrid中建立永久字段;
2、dbgEasyColEnter.Colnmus[0].readonly:=true;
 
设置dbgrid.columns 的readonly属性即可.
 
在Dbgrid中建立永久字段,设置FIELDNAME为表中的字段,在想只读的列中选择readonly
为true
 
设置dbgrid.columns 的readonly属性即可
 
多人接受答案了。
 
設置此列readonly為true
 
后退
顶部