// rollback写在 messagebox前面,避免未按下‘ 确定’按钮时的数据库锁死 rollback using sqlca; MessageBox("SQL error", SQLCA.SQLErrText+'~r~n'+'这封邮件'+"(采购订单号"+ls_cvouchid+")"+'发送成功,但是在数据库中标记失败!'+'~r~n'+'请检查数据库连接是否正确 或者 导入正确数据库。')