【结贴】帮忙解决下，谢谢！**

lotus

procedure TXFSJRWDJLST.DataSetBrokerXFSJRWDSJJDataChange(Sender: TObject; Field: TDataField);
begin
if DataSetBrokerXFSJRWDSJJ.DataSet.FieldByName('GHSJ').AsBoolean then
    begin
     DataSetBrokerXFSJRWDSJJ.DataSet.FieldByName('SGSJBT').AsBoolean :=false;
     DataSetBrokerXFSJRWDSJJ.DataSet.FieldByName('SGSJLT').AsBoolean :=false;
     end
   else if DataSetBrokerXFSJRWDSJJ.DataSet.FieldByName('SGSJBT').AsBoolean then
    begin
     DataSetBrokerXFSJRWDSJJ.DataSet.FieldByName('GHSJ').AsBoolean :=false;
     DataSetBrokerXFSJRWDSJJ.DataSet.FieldByName('SGSJLT').AsBoolean :=false;
     end
     else  if DataSetBrokerXFSJRWDSJJ.DataSet.FieldByName('SGSJLT').AsBoolean then
     begin
     DataSetBrokerXFSJRWDSJJ.DataSet.FieldByName('GHSJ').AsBoolean :=false;
     DataSetBrokerXFSJRWDSJJ.DataSet.FieldByName('SGSJBT').AsBoolean :=false;
    end;
end;


请问我在执行这段代码时报的错为下图，是什么原因？

lisb

错误停在哪？好像是死循环了，你跟踪一下代码看看。

lisb

由于长时间没有回复，先结贴了，有问题请开新帖。