if caption='可编辑' thenbegincxGrid1DBTableView1.Columns[1].Options.editing:=false;caption:='不可编辑';endelsebegin cxGrid1DBTableView1.Columns[1].options.editing:=true;caption:='可编辑';end;
在query的BeforeEdit里面写代码procedure Tbafm.Cxaqry1BeforeEdit(DataSet: TDataSet);begin if Cxaqry1.FieldByName('th027').AsInteger=1 then begin showmessage('该产品记录已审核,不能修改!'); Cxaqry1.Cancel; end elseend;