delphi 怎样使dbgrideh 中符合某个条件的记录不能修改

Question

是在DBGRIDeh 里面符合某个一定条件的某个行不能修改！比如 if Dateset.fieldByName('完工标记'):=1 then 符合这样的条件的记录不能修改。

Answer 1

你可以在dbgrideh的ONCellClick事件里写符合某个条件的记录不能修改的代码，如果符合条件,dbgrideh1.ReadOnly:=true,试一试。
procedure Tform1.DBGridEh1CellClick(Column: TColumnEh);
begin
if Dateset.fieldByName('完工标记')=1 then
dbgrideh1.ReadOnly:=true
else
dbgrideh1.ReadOnly:=false;
end;

Answer 2

可以写入ADO.beforeedit事件中，代码如下：
if ado.fieldbyname('fieldname').asstring = '' then
begin
showmessage('某某字段为空，不能修改！'); //如符合条件，给出提示
abort; //退出执行
end

Answer 3

条件是动态的吗？

如果你是想不能修改某些记录，你可以在建表的时候多加个字段，boolean属性，为true是可以修改，为false是不能修改，自己在程序里控制

Answer 4

dbgrideh只不过是数据的表现形式。
如我要某个字段等于1时可编辑，其余则不可编辑
则可以
if DataSet.FieldByName('zd').asString = '1' then
dbgrideh.readonly := false
else
dbgrideh.readOnly:= True;

可以把这段代码写在数据集的afterscroll事件里。