2、在数据集的事件上做了程序处理,但未处理妥当。
例如:
procedure TYPGLXX.DataSetYPXXSJJBeforePost(DataSet: TDataSet);
begin
if (DataSetYPXXSJJ.State= TDataSetState.dsInsert) then//修正判断 ,只让插入状态运行下面的程序
//if DataSet.FieldByName('GYSHH').OldValue <> DataSet.FieldByName('GYSHH').Value then
begin
with DataSetTPGLXX do
begin
数据集事件的大部分事件是频繁触发的,如果处理不妥当,会非常影响速度。
例子程序的第三行就可以限定只在插入的状态运行代码。