在 CnRunSQLUnit.pas 单元中

第 247 行  " FConnection.BeginTrans;//开始事务"
第 248 行  " try"
第 250 行  " ExeRecord := FCommand.Execute(RecordAffected,EmptyParam);”
...

第 319 至 328 行...
      except
        on E: Exception do
        begin
          FNewTime := GetTickCount;
          UseTime := usetime + (FNewTime - FOldTime);
          msg := E.Message + #13#10#13#10;
          FMsgList.Add(strNew(pchar(msg)));
          Result := false;
        end;
      end;
-----------------------------------------------------------------------------------------------------------
如果在第250行执行异常，在下面的except中并有对 FConnection 执行 RollBack ，导致下次执行 BeginTrans 时报错
请版主看看是不是应该except中加上 rollback ....

恩！确实如楼主所说啊，汗一个先，应该是写的时候忘记了。不好意思
加在
result := false前就好了。

经确认，已经改正，感谢akong。