怎么把在dbgrideh中修改的记录保存到另一个表中

如何把在dbgrideh中修改的记录保存到另一个表中？
如何把在dbgrideh中修改的记录保存到另一个表中？ 保存被修改记录的某些字段到另一个表中，如何做呀？

或者，如何让另一个dbgrideh显示这一个dbgrideh的当前记录，并可以修改记录的字段值 。

非常感谢。

------解决方案--------------------
每个表都应该有主键的吧，在ADOQuery1AfterScroll事件中得到当前选择记录的主键值，然后再用sql语句查询出来显示在另一个Dbgrideh中不就行了

看看下面的代码合适吗？DBGridEh1对应adoquery1 DBGridEh2对应adoquery2
procedure TForm1.FormCreate(Sender: TObject);
var
i:Integer;
con:Boolean;
vg_path:string;
begin
vg_path:=ExtractFilePath(Application.ExeName);//'F:\个人源程序\邮件监控\';

//i:=self.CreateDatabase('data');
{if i=0 then
begin
MessageBox(application.Handle,'数据库文件丢失，自动创建失败','信息',MB_OK or MB_ICONINFORMATION);
Exit;
end; }
self.ADOConnection1.Connected:=False;
Self.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
+vg_path+'data.mdb;Persist Security Info=True;'
+'Jet OLEDB:Database Password=lzx2008';
try
Self.ADOConnection1.Connected:=true;
con:=true;
except
con:=false;
end;
if con=False then
begin
MessageBox(Application.Handle,'数据库连接失败','信息',MB_OK or MB_ICONINFORMATION);
Application.Terminate;
Exit;
end;
self.ADOQuery1.Close;
self.ADOQuery1.Connection:=self.ADOConnection1;
Self.ADOQuery1.SQL.Clear;
self.ADOQuery1.SQL.Add('select * from mail');
self.ADOQuery1.Open;
end;

procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet);
var
msgid:string;
begin
msgid:=self.ADOQuery1.FieldByName('msgid').AsString;
self.ADOQuery2.Close;
self.ADOQuery2.Connection:=self.ADOConnection1;
Self.ADOQuery2.SQL.Clear;
self.ADOQuery2.SQL.Add('select * from mail where msgid=:s1');
Self.ADOQuery2.Parameters.ParamByName('s1').Value:=msgid;
self.ADOQuery2.Open;
end;