|
楼主 |
发表于 2007-8-14 11:18:17
|
显示全部楼层
procedure THYSSQTXCK.FlowBroker1BeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
begin
//JsDialogs.ShowMsg('所选计划已经下发!','信息提示');
DataSetBroker1.DataSet.Open;
if DataSetBroker1.DataSet.RecordCount > 0 then
begin
if DataSetBroker1.DataSet.FieldByName('HYSSHZT').AsString = '0' then
begin
DataSetBroker1.DataSet.Edit;
DataSetBroker1.DataSet.FieldByName('HYSSHZT').AsString := '1';
DataSetBroker1.DataSet.Post;
DataSetBroker1.DataSet.ApplyUpdates;
DataSetBroker1.DataSet.Refresh;
JsDialogs.ShowMsg('所选计划已经下发!','信息提示');
end;
DataSetBroker1.DataSet.Open;
end;
end;
我在入口环节中加上这段代码,第二环节就没数据,去掉就有数据
第二环节我是继承的入口环节功能,但我在第二环节中把数据策略的过滤都去了 |
|