刚才笔误了,是在datasource的onUpdateData事件里面写代码
例如:
procedure TForm1.DataSource1UpdateData(Sender: TObject);
begin
if Table1.State in [dsEdit,dsInsert] then
begin
showmessage('数据编辑中,请先保存!'); //提示用户
abort;
end;
end;
刚才说了,你要多判断一点了
在条件
if Table1.State in [dsEdit,dsInsert] then
里面,你可以加上自己定义的判断条件,比如:
if (Table1.State in [dsEdit,dsInsert]) and Can_Update then
//Can_Update是你定义的一个标志,用来判断是否要进行更新
begin
...
end;