标题：事务代码如何修改

不需要改什么。事务失败表1就不会删除，还回滚表1什么！

ExecuteNonQuery就是用来执行一条sql。使用参数化的方式执行，具体请去看组件的帮助

Dim db = HySq-l.DataBaseFactory.CreateDatabase()  '获取数据库对象 Dim tran = db.BeginTransaction()  '开始一个事务 Dim sq-l As String = "INSERT INTO table2 (id, data) SELEC-T id, data FROM table1;"  Try       Dim res As Integer = db.ExecuteNonQuery(tran, sq-l, New HySq-l.ParameterPair("折扣", 0.3), New HySq-l.ParameterPair("客户", "abc"))       res = db.ExecuteNonQuery(tran, sq-l, New HySq-l.ParameterPair("折扣", 0.2), New HySq-l.ParameterPair("客户", "CS01"))       If res = 0 Then           db.RollbackTransaction(tran, True)  '回滚事务,同时关闭数据库连接         msgbox("取消事务")       Else           db.CommitTransaction(tran, True)  '提交事务,同时关闭数据库连接         msgbox("执行成功")      删除表1，SQL=删除语句     End If   Catch ex As Exception       db.RollbackTransaction(tran, True)  '回滚事务,同时关闭数据库连接     msgbox("取消事务,原因:" & ex.Message)   End Try   问题1;需求是导入数据，删除来源表的事务，删除来源表代码是放在上面代码位置？还是放在哪里？是否还在失放资源的动作？ 问题2：一个按键单击事件，有多个事务，狐表的操作代码（导入，复制，查询）事件，是否可以同放一个按键里？其程序运行先后如何处理？

问题1：if res > 0 then是事务成功意思？If res = 0 Then是事务失败的意思？

1、帮助有说明，从来没有看帮助的习惯的吗！res表示ExecuteNonQuery执行后影响的行数，比如插入10行，res=10，=0表示没有插入任何行，后面的代码也就没有执行的必要了