procedure TMainForm.FlowBroker1AfterFlowFinish(Sender: TObject; Command: TFlowFinishCommand);
begin
if not dsbll.DataSet.Active then
dsbll.DataSet.Open;
dsbll.DataSet.Append;
dsbll.DataSet.FieldByName('编号').asstring :=
dsbygxx.DataSet.FieldByName('编号').asstring;
dsbll.DataSet.ApplyUpdates;
说明:数据集中有该字段