|
编译没有问题,但是在运行时报错,点击这些错误后可以正常运行,在初始化环境中也没有问题。错误指示的代码如下
procedure TMainForm.BizFormShow(Sender: TObject);
var
lDataSet : TSqlDataSet;
begin
if not Flowbroker.FlowControl.FlowStartuped then//指示这一句,删除后就没有问题了,已经引入函数
begin
dsbMaster.DataSet.Append;
lDataSet := dsbFlow.DataSet as TSqlDataSet;
FlowCommonUtils.TFlowUtils.LoadFlowTempletData('PSYJ',lDataSet);
end;
(InfoBroker.Info as SGYW2_INFO.TSGYW2_INFO).ModifyFlowData('bsWrite','10');
end;
错误信息如下
|
|