关于DBGRID的操作问题

数据库有两列:单价,生产厂家在通过DBGRID编辑单价的同时,将生产厂家的数据也赋值,不知道怎么操作??我本来想用DBGRID.onkeypress,判断如果是回车就对生产厂家赋值,
可是结果只对生产厂家进行了操作,单价没有变........谢谢.procedure TMainForm.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=VK_RETURN) then
  begin
      DataModule1.ADODataSet1.FieldByName('生产厂家
').Value:=CompanyEdit.Text;
      DataModule1.ADODataSet1.Next;
  end;
end;