procedure TForm7.Label33Click(Sender: TObject);
var i,j,k:integer;
begin
i:=self.DBGrid1.SelectedField.DataSet.FieldValues[‘id‘];
self.ClientDataSet1.Edit ;
self.ClientDataSet1.FieldValues[‘id‘]:=1111111;
self.ClientDataSet1.Post;
end;
原文：http://www.cnblogs.com/delphi-xe5/p/4809631.html