procedure TForm1.ADODataSet1BeforePost(DataSet: TDataSet);
var I:Integer;
begin
if OtherDataSet.Locate(//具体) then
begin
OtherDataSet.Edit;
For i:=0 to DataSet.FieldCount-1 do
begin
OtherDataSet.FieldByName(Dataset.Fields.Fields.FieldName).AsVariant:=
DataSet.Fields.Fields.AsVariant;
end;
OtherDataSet.Post;
end;
end;
