如果此处DataSet里的flag列类型为fkInternalCalc则没有问题
如果此处DataSet里的flag列类型为fkCalculated则出现问题:Post之后在dbgrid里会消失,跟踪时Post之后值为NULL。
不知道是什么原理。
留待以后查证。
procedure TfrmJxZd.DBGridEh4DblClick(Sender: TObject);
begininherited;
with (Sender as TDBGridEh).DataSource.DataSet do
begin
Edit;
if FieldByName('flag').AsString = '' then
FieldByName('flag').Value := '√'
else FieldByName('flag').Value := '';
Post;
end;
end;