procedure TDanJia.adqBeforeEdit(DataSet: TDataSet); begin
end;
[解决办法] 这个事件是在编辑前发生的。 [解决办法] 可以在POST前事件通过每个字段的新值与旧值对比判断是否修改,如: procedure TForm1.ADODataSet1BeforePost(DataSet: TDataSet); begin if DataSet.Fields[0].OldValue <>DataSet.Fields[0].NewValue then showmessage('Fields[0] is Changed') if DataSet.Fields[1].OldValue <>DataSet.Fields[1].NewValue then showmessage('Fields[1] is Changed') //... end; [解决办法]