【结贴】成批逐条流转问题**

fyzy

按论坛中的说明已经实现逐条游转,现在想实现成批逐条流转,还能用论坛中的方法吗

jiahaiming

按论坛中的说明已经实现逐条游转：楼主是怎么做的？

fyzy

procedure TJXJLLRWIN.FlowBroker1BeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
begin
     if DSBMain.DataSet.IsEmpty then
     begin
        Command.Accept := false;
        JsDialogs.ShowMsg('请添加检修记录!','提示');
    end;
end;

procedure TJXJLLRWIN.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
begin
     DSBMain.DataSet.Edit;
     //if DSBMain.DataSet.FieldByName('XZ').AsBoolean then
        DSBMain.DataSet.FieldByName('SBJXJLZB_ZT').AsInteger := 1;
    DSBMain.DataSet.ApplyUpdates(False);
     //myGuid := Business.System.JSCommon.CreateGUIDStr;
     DSBMain.DataSet.Filter:='SBJXJLZB_ZT is null or SBJXJLZB_ZT=0';
     DSBMain.DataSet.Filtered:=true;
     Command.FuncTerminate := False; //窗体不关闭
     if Command.FlowControl.FlowStartuped then
     Command.FlowControl.RegisterANewFlow;
end;

gaihl

楼主，跟据你现在的代码，如果要实现成批流转，
1.可能需要加一个成批流转按钮，在事件中对每一条记录进行FlowOut

fyzy

我试了一下，有各种问题，先结吧