这个问题为什么？

zzrq

我做的物资类付款模块，总是在报这个错误 代码如下 ：
procedure THTXX.DataSetWZLFKBeforeDelete(DataSet: TDataSet);
var
        queryFLOWID : Tquery;
        begin
        if Business.Forms.jsdialogs.QuestionBox('确定要删吗？这将导致流程数据一同删除！','确认',2)<>6
        then begin
        SysUtils.Abort;
        end;
        queryFLOWID:= TQuery.Create(self);
        with queryFLOWID do
        queryFLOWID.ConnectionString := 'DATABASEURL=Biz:SYSTEMSYSTEM.Database';
        queryFLOWID.CommandText := 'delete from TFLOWID where TFLOWID.FID=:ID';
        queryFLOWID.Params.ParamByName('ID').AsString :=DataSetWZLFK.FieldByName('ID').AsString;
        queryFLOWID.Execute;
        queryFLOWID.Free;
end;

难道这个不是实现他的代码吗？

zfang

重新检查一下这个数据集的这个 事件 然后编译一下

zzrq

我检查过了 和以前的付款合同没什么区别，编译也成功 没有出现任何错误

zfang

这个数据集的这个事件重新设一下再看看。

zzrq

我把这个代码删除了，就不报这个错误了， 运行正常。

但是 为什么 我设置了 上传和流程的触发事件，他就是没有反应呢

zfang

事件没挂到具体的控件的事件属性上吧。
你可以在调试状态下在代码处打个断点，然后跑一下看看，是否进到断点，如果没进入，那么就是这个代码没有执行。

zzrq

属性是挂着的，但是他就是没有动向啊

zfang

取消事件，然后重新选择上，然后编译后，调试运行下代码还不执行吗？
请楼主好好检查一下。