Перемещение даннах из dbgrid в dbgrid

[Hobbit_88]

procedure TForm1.BitBtn15Click(Sender: TObject);
begin
DataModule2.Postavka1.Active:=false;
DataModule2.Postavka1.SQL.Clear;
DataModule2.Postavka1.SQL.Add('INSERT INTO PostavkaTovara1 (dat, delivery, amount, price, tovar, kodtovara, edizm) ');
DataModule2.Postavka1.SQL.Add('SELECT dat, delivery, amount, price, tovar, kodtovara, edizm');
DataModule2.Postavka1.SQL.Add('FROM PostavkaTovara');
DataModule2.Postavka1.ExecSQL;
DataModule2.Postavka1.SQL.Text:='SELECT * FROM PostavkaTovara1';
DataModule2.Postavka1.Active:=true;
DataModule2.Postavka.Close;
DataModule2.Postavka.SQL.Clear;
DataModule2.Postavka.SQL.ADD('delete FROM postavkatovara');
DataModule2.Postavka.ExecSQL;
DataModule2.Postavka.SQL.Text:='';
DataModule2.Postavka.SQL.ADD('select * FROM postavkatovara');
DataModule2.Postavka.Open;


end;

Вот код. Но для подставных полей он не работает. Как сделать чтобы работал?

[soleil@mmc]

Сообщение от Hobbit_88

Но для подставных полей он не работает.

что есть "подставное поле"?
и что за БД?

[Hobbit_88]

Бд в аксесе. соединение адо. В моей базе нет подстановочных полей. Но я хотел применить для другой базы. Там есть подстановочные поля и он не перемещает их.

[Evgeniy26]

Заново добавляй:

ADOTable1.Fields.Add(TField);
ADOTable1.FieldByName('Hello').FieldKind := fkLookup;
ADOTable1.FieldByName('Hello').KeyFields := '<FieldsName>';
ADOTable1.FieldByName('Hello').LookupDataSet := <AdoTable>;
ADOTable1.FieldByName('Hello').LookupKeyFields := '<FieldsName>';
ADOTable1.FieldByName('Hello').LookupResultField := '<FieldsName>';

[Hobbit_88]

Это до того как перемещать или после? Так каждое поле нужно добавлять?

[Evgeniy26]

У вас подставное поле это что? Как я думаю вы его здаете в ADOTable-> New Field?

[Hobbit_88]

Да только в Adoquery

[Evgeniy26]

Дак добавляйте новое поле и кузывайте необходимые параматры программно.