Работа с DBLookupComboBox

[AngelOFFGrief]

Здравствуйте, при написании БД возникла вот такая проблема. Имеет две главные таблицы, которые должны заполнятся с помощью BLookupComboBox, который берет свои значения из других таблиц. Все работает если DBLookupComboBox привязывать к таблице через object inspector. Но тогда я не могу использовать один и тот же BLookupComboBox для двух таблиц, поэтому я решила написать так:

IF RadioGroup1.ItemIndex = 6 then
DBLookupComboBox2.DataSource := DataModule2.DataSource6;
DBLookupComboBox2.DataField := 'Key_name';
DBLookupComboBox2.ListSource := DataModule2.DataSource3;
DBLookupComboBox2.ListField := 'NAME';
DBLookupComboBox2.KeyField := 'Key_name';
IF RadioGroup1.ItemIndex = 11 then 
DBLookupComboBox2.DataSource := DataModule2.DataSource11;
DBLookupComboBox2.DataField := 'Key_student';
DBLookupComboBox2.ListSource := DataModule2.DataSource6;
DBLookupComboBox2.ListField := 'Key_student';
DBLookupComboBox2.KeyField := 'Key_student'
Else DBLookupComboBox2.Visible := False;

Но тогда при запуске DBLookupComboBox2 остается неактивным. Может я что то забываю еще поставить или так сделать вообще нельзя и придется устанавливать для каждой таблицы отдельные элементы?

[Poltev86]

а не проше сделать два DBLookupComboBox-а..добавь еще один на тоже место и сделай оба невидимых если 6 то включай первый...если 11 то второй...

IF RadioGroup1.ItemIndex = 6 then
begin
DBLookupComboBox2.visible:=true;
DBLookupComboBox2.DataSource := DataModule2.DataSource6;
DBLookupComboBox2.DataField := 'Key_name';
DBLookupComboBox2.ListSource := DataModule2.DataSource3;
DBLookupComboBox2.ListField := 'NAME';
DBLookupComboBox2.KeyField := 'Key_name';
end;
IF RadioGroup1.ItemIndex = 11 then
begin 
DBLookupComboBox3.visible:=true;
DBLookupComboBox3.DataSource := DataModule2.DataSource11;
DBLookupComboBox3.DataField := 'Key_student';
DBLookupComboBox3.ListSource := DataModule2.DataSource6;
DBLookupComboBox3.ListField := 'Key_student';
DBLookupComboBox3.KeyField := 'Key_student'
end;

[AngelOFFGrief]

Спасибо, действительно так проще. Только вот другая проблема возникла. Я списки вижу, но выбрать из них не могу. Мне нужно, чтоб я могла добавить в главную таблицу новую запись. Т.е. я тыкаю на различные DBLookupComboBox выбираю из них нужные мне значения, потом нажимаю кнопку добавить и получаю новую запись. А он мне выдает то, что выбрано в выбранной записи таблицы и при попытки выбрать другое пишет, что таблицу изменить нельзя.

[Poltev86]

А что за бд используешь??? А так если хочешь довать запись то нужно использовать ADOTable1.insert тогда он создать нновое чистое поле для записи... а в конце написать ADOTable1.Post

[AngelOFFGrief]

Всем спасибо. Вопрос был решен добавление дополнительных IBTable/