问题已经解决了,改用For循环,程序如下:
procedure TJYJHJS_CT.FlowBroker1AfterFlowBack(Sender: TObject; Command: TFlowBackCommand);
var i :integer;
begin
DataSetBroker1.DataSet.open;
DataSetBroker1.DataSet.First;
//jsdialogs.ShowMsg(,'');
for i:=1 to DataSetBroker1.DataSet.RecordCount do
begin
DataSetBroker1.DataSet.Edit;
DataSetBroker1.DataSet.FieldByName('SJJYJHID').AsString:='';
DataSetBroker1.DataSet.Next;
end;