Из DBgrid в DBgrid

[roach]

Не могу понять! нашел то что мне нужно на форуме, но всегда выскакивает ошибка. Имеем 2 грида. Подвязанных к разным таблица. Нужно: по нажатию кнопки перенести ФИО из одного в другой, сдобавление строчки, а еще в поле №карточки вставить число рандомом и в поле дата вставить текущую дату.

Мой код

procedure TForm2.Button2Click(Sender: TObject);
begin

datasource2.DataSet.edit;
DBGrid2.DataSource.DataSet.Append;

DBGrid2.DataSource.DataSet.FieldByN ame('f').Value:=
DBGrid1.DataSource.DataSet.FieldByN ame('f').Value;

DBGrid2.DataSource.DataSet.FieldByN ame('i').Value:=
DBGrid1.DataSource.DataSet.FieldByN ame('i').Value;

DBGrid2.DataSource.DataSet.FieldByN ame('o').Value:=
DBGrid1.DataSource.DataSet.FieldByN ame('o').Value;

DBGrid2.DataSource.DataSet.FieldByN ame('i').Value:=
DBGrid1.DataSource.DataSet.FieldByN ame('i').Value;
DBGrid2.DataSource.DataSet.Post;
datasource2.DataSet.Open;

DBGrid2.DataSource.DataSet.FieldByN ame('DataKarti').Value:=Datetostr(n ow);
table2.FieldByName('NomerKarti').Va lue:=random(10);

end;

Если что то не так может кто подскажет. Дело важное, диплом все таки!

[mihali4]

В-первых, для оформления кода есть спец. тэг (вызывается значком #). Оформляйте нормально, пока не получили замечание от модера.

procedure TForm2.Button2Click(Sender: TObject);
begin
datasource2.DataSet.edit;
DBGrid2.DataSource.DataSet.Append;
DBGrid2.DataSource.DataSet.FieldByName('f').Value: =
DBGrid1.DataSource.DataSet.FieldByName('f').Value; 
DBGrid2.DataSource.DataSet.FieldByName('i').Value: =
DBGrid1.DataSource.DataSet.FieldByName('i').Value; 
DBGrid2.DataSource.DataSet.FieldByName('o').Value: =
DBGrid1.DataSource.DataSet.FieldByName('o').Value; 
DBGrid2.DataSource.DataSet.FieldByName('i').Value: =
DBGrid1.DataSource.DataSet.FieldByName('i').Value; 
DBGrid2.DataSource.DataSet.Post;
datasource2.DataSet.Open;
DBGrid2.DataSource.DataSet.FieldByName('DataKarti' ).Value:=Datetostr(now);
table2.FieldByName('NomerKarti').Value:=random(10) ;
end;

Зачем это вот - выделенное красным?
Перед тем, как присвоить значение полю в table2 ее, наверное, нужно перевести в режим редактирования? table2.Edit;