procedure TBGSP.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
begin
Inherited;
if Command.Accept=true then
begin
dsbCxbg.DataSet.Edit;
dsbCxbg.DataSet.FieldByName('FState').asInteger := 3;
dsbCxbg.DataSet.ApplyUpdates;
end;
end;
如果你屏蔽下面这些代码是否报错呢?
if Command.Accept=true then
begin
dsbCxbg.DataSet.Edit;
dsbCxbg.DataSet.FieldByName('FState').asInteger := 3;
dsbCxbg.DataSet.ApplyUpdates;
end;