Добавление в DBgrid

[girz]

На форме имеется DBLookupComboBox1 с именами покупателей и компонент DBEdit1 в который вписывается описание товара, на форме имеется DBGrid1. Вопрос как из DBLookupComboBox1 и DBEdit1 записать данные в DBgrid1 в столбец "покупатели"- из DBLookupComboBox1.
В столбец"описание"- из DBEdit1

[artemavd]

Вот, держи. По аналогии сделаешь с комбиком.

[girz]

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

Вот, держи. По аналогии сделаешь с комбиком.

Спасибо за помощь помоги пожалуйста у меня возникла проблема, в компоненте DBLookupComboBox1 вот вывожу я в него данные какого либо столбца и как мне вывести в DBGrid выбранное мною поле??
Заранее спасибо всем!!!!

[artemavd]

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

в компоненте DBLookupComboBox1 вот вывожу я в него данные какого либо столбца и как мне вывести в DBGrid выбранное мною поле??

в моем примере не работает?

[girz]

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

в моем примере не работает?

Работает, и подскажите что я описовал дальше.

[artemavd]

Держи, думаю, это то, что надо

[girz]

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

Держи, думаю, это то, что надо

Спосибо, но я использую другие компоненты
ADOTable
DataSourse
ADOQuery
как мне через них решить эту задачю.

[crit]

разницы нету большой

[artemavd]

Я с ADO не работал. Там не сложно сделать по аналогии с BDE.

[artemavd]

Вопрос: почему не добавляется название класса в БД в поле KLASS?
Код:

 i:=1;
 while Form1.SG9.Cells[1,i] <> '' do begin
  if Form2.Table1.Locate('LAST_NAME;FIRST_NAME;OTCHESTVO',VarArrayOf([Form1.SG9.Cells[1,i],
                                 Form1.SG9.Cells[2,i],Form1.SG9.Cells[3,i]]),
                                 [loCaseInsensitive,loPartialKey]) = False then
  begin
     Table1.Insert;
     Table1.FieldByName('KLASS').AsString:=Form1.DBLookupComboBox3.Text;
     Table1.FieldByName('LAST_NAME').AsString:=Form1.SG9.Cells[1,i];
     Table1.FieldByName('FIRST_NAME').AsString:=Form1.SG9.Cells[2,i];
     Table1.FieldByName('OTCHESTVO').AsString:=Form1.SG9.Cells[3,i];
     Table1.Post;
  end;