【搞定】如何自动完成对数据集多条记录对应字段值的自动修改？**

xiongfei_luo

先给段代码：
procedure TBUDGETAPPLY.DataSetBMNDYSSQBeforeApplyUpdates(Sender: TObject; var OwnerData: object);
var
  i,n:integer;
  ztr,ztd,zts:string ;  \\定义字符串变量
  zsr,zsj,zsy,zss:string ;
begin
  DataSetBMNDYSSQ.Open;
  
  i:= DataSetBMNDYSSQ.RecordCount; \\计算数据集总记录条数，并将值赋给i
  n:=0;

  ztr:= DataSetBMNDYSSQ.FieldByName('Fillup').AsString ;  \\将当前数据集相应字段的值赋给字符串变量
  ztd:= DataSetBMNDYSSQ.FieldByName('fillupdep').AsString ;
  zts:= DataSetBMNDYSSQ.FieldByName('fillupdeptime').AsString ;

  zsr:= DataSetBMNDYSSQ.FieldByName('Brigade').AsString ;
  zsj:= DataSetBMNDYSSQ.FieldByName('Bcheckresult').AsString ;
  zsy:= DataSetBMNDYSSQ.FieldByName('brigadeNotion').AsString ;
  zss:= DataSetBMNDYSSQ.FieldByName('Bchecktime').AsString ;
  DataSetBMNDYSSQ.First;  \\数据集指向第一条记录

while i>n  do
  begin
   DataSetBMNDYSSQ.Edit;
   DataSetBMNDYSSQ.FieldByName('Fillup').AsString := ztr ;\\自动将字段的值写进数据集的每条记录相应字段。
   DataSetBMNDYSSQ.FieldByName('fillupdep').AsString:=ztd ;
   DataSetBMNDYSSQ.FieldByName('fillupdeptime').AsString:=zts ;

   DataSetBMNDYSSQ.FieldByName('Brigade').AsString:= zsr ;
   DataSetBMNDYSSQ.FieldByName('Bcheckresult').AsString:= zsj  ;
   DataSetBMNDYSSQ.FieldByName('brigadeNotion').AsString:= zsy ;
   DataSetBMNDYSSQ.FieldByName('Bchecktime').AsString:= zss ;  
   DataSetBMNDYSSQ.Next ;
   n:=n+1;
  end;
end;
至此数据集能够自动完成对数据集的修改。

xiongfei_luo

procedure TBUDGETAPPLY.DataSetBMNDYSSQBeforeClose(DataSet: TDataSet);

begin

   DataSetBMNDYSSQ.Edit;
   DataSetBMNDYSSQ.UpdateRecord;\\在这里物理数据库始终只修改当前记录，无法将整个数据集记录修改。 该用什么方法update呢？
   DataSetBMNDYSSQ.Close;            
end;

xiongfei_luo

数据集的更新属性已经做了相应的设置。为什么，数据集记录的相应字段都相应变化了，而这种变化确不能返回到物理数据库中？

lixy

必须做ApplyUpdates提交，物理数据库才能修改

xiongfei_luo

试过applyupdates，运行时会在此处报错，好像是讲类型不对。

lixy

什么错误，写详细点

xiongfei_luo

谢谢