заполнение основной таблицы, через справочную.

← →
Dmit (2004-10-29 14:46) [0]

В базах данных Delphi я пока мало что понимаю, поэтому и не могу уже 3 дня сделать такую операцию как заполнение основной таблицы, через справочную используя DBLookupComboBox.
Т.е. есть таблица Фирмы, с полями:
IdFirm – автоинкрементное, первичный ключ.
FName – строка

И таблица Отчеты с полями:
IdReport – автоинкрементное, первичный ключ
Sum – денежный
RepFirm – целый, внейний ключ.

Связал поле IdFirm и RepFirm связью один ко многим.
Теперь хочу заполнить обе эти таблицы. Таблицу Фирмы заполняю без проблем (вставил на форме Edit и кнопку добавить):
Table1.Insert;
Table1.FieldByName("FName").AsString := Edit1.Text;
Table1.Post;

Для заполнения поля RepFirm в таблице Отчеты вставил на форму DBLookupComboBox.
В свойствах поставил:
ListSourse – DataSourse1
ListField – FName
KeyField – IdFirm
DataSourse – DataSourse2
DataField – RepFirm

Когда запускаю программу в DBLookupComboBox отображаются значения поля FName из таблицы Фирмы, но вот записать данные из этого поля в таблицу Отчеты никак не удается т.е. не знаю как правильно написать следующие строки:
Table2.Insert;
??? Table2.FieldByName("RepFirm").??? := DBLookupComboBox1.???;
Table2.Post;

← →
Mike Kouzmine © (2004-10-29 15:31) [1]

Может лучше вообще ничего не писать. Ты как?

← →
Silla © (2004-10-29 15:45) [2]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622815&n=14

← →
Dmit (2004-10-29 16:29) [3]

Silla Огромное спасибо. все быстро получилось. конечно, думаю добавление через combobox выглядело бы более логичным и красивым, но и это совсем не плохо по сравнению с тем что было. спасибо.

>В базах данных Delphi ...

Это очень интересно.

заполнение основной таблицы, через справочную. Найти похожие ветки