12 年之前 · ae4810edd6
--- a/packages/fcl-db/src/sqldb/sqldb.pp
+++ b/packages/fcl-db/src/sqldb/sqldb.pp
@@ -1248,12 +1248,11 @@ procedure TSQLTransaction.EndTransaction;
 
															 begin
														
 
															   Case Action of
														
 
															-    caNone :
														
 
															-      CloseTrans;
														
 
															     caCommit :
														
 
															       Commit;
														
 
															     caCommitRetaining :
														
 
															       CommitRetaining;
														
 
															+    caNone,
														
 
															     caRollback :
														
 
															       RollBack;
														
 
															     caRollbackRetaining :