【结帖】关于计划中心的问题**

qiezi

请问我想实现这样的效果，就是当出现异常时（数据不符合要求时），我想让程序停下了，不保存。我在
DataSetPlanDataBeforePost中书写如下代码为什么不起作用？！
if   (DataSetPlanData.FieldByName('FPIECE').AsInteger=1) and  (DataSetPlanData.FieldByName('FPRIORID').IsNull) then
     begin
           dialogs.ShowMessage('是关键指标，请选择主管部门和领导后再重新保存');
           Exit;
     end

如果我把EXiT替换为PlanCanel虽然能达到不保存的目的但是还要报一个错误。我只是想把他停下来，报一个自己定义的错误。

zfang

if   (DataSetPlanData.FieldByName('FPIECE').AsInteger=1) and  (DataSetPlanData.FieldByName('FPRIORID').IsNull) then
     begin
           dialogs.ShowMessage('是关键指标，请选择主管部门和领导后再重新保存');
           DataSetPlanData.Cancel;//加上这句看看
           Exit;
     end

qiezi

还是会报一个错误

atiger

如果要中止post动作，那么把exit 修改为sysutils.abort。
且三楼的错误，应该跟你帖出来的代码没有关系吧，你跟踪一下执行哪句报出来的

qiezi

问题已解决，结贴！谢谢。