原版本2611,用发布工具将开发代码导出
安装新版本2800(包括开发和服务),用导入工具将代码导入
在流程代码中用到事务的都报错,错误提示如下图:
处理代码:
lTransactionHandle := dsbWSPLLD.DataSet.Connection.Transaction.Start(False);
try
// 数据处理 dsbWSPLLD.DataSet.ApplyUpdates(False);
if FlowBroker1.FlowControl.FlowOut(nil) then
begin dsbWSPLLD.DataSet.Connection.Transaction.Commit(lTransactionHandle);
end;
except
on E : Exception do
begin dsbWSPLLD.DataSet.Connection.Transaction.Rollback(lTransactionHandle);
jsDialogs.MsgBox(0, 'µÝ½»[Êý¾Ý±£´æ]ÊÂÎñʱ·¢Éú´íÎ󣬲Ù×÷ÒѾ­±»È¡Ïû¡£' + E.Message, '´íÎóÌáʾ', 0);
end;
end;
原来在2611中正常,为何出现此现象???