请问如何给dbgrid里的cell赋值?急!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Question

我在form1.dbgrid里的columns[1]里设置了一个按钮,在按下按钮后弹出form2,在form2中的dbgrid1 里选择一个数据,但是如何把这个数据传递到form1的dbgrid的cell里?谢谢!
代码:
procedure Tmain.DBGrid1EditButtonClick(Sender: TObject);
begin
gd.ShowModal;//显示form2;
end;form2的dbgrid事件:
procedure Tgd.DBGrid1DblClick(Sender: TObject);
begin
   y1:=dm1.d_goods.Fieldbyname('gg').AsString;
   gd.Close;
//请问如何把y1的值传到form1的dbgrid的cell里.
end;

Answer 1

form2.showmodal;
  if form2.modalresult = mrok then
  begin
    table1.Edit;
    Table1.fieldbyname('name').asstring := form2.Table1.fieldByname('name').Asstring;
  end;