Грмотная настройка фильтра в компоненте Table

[Avalonix]

Помогите разобраться с такой вещью. Вот есть две таблицы: стран и городов. В таблице городов как форейгн кей идет код страны. Сделал на форме два компонента DBLookupCombobox, для каждой таблицы. Нужно чтобы при выборе какой то одной страны в одном DBLookupCombobox, в другом были доступны города соответствующие только выбраной стране! Те надо в компоненте Table соответствующего городам отфильтровать города, форейгн кей которых равен коду выбраной страны. Я так предполагаю при выборе из списка у нас в свойство DBLookupCombobox.ListFieldIndex закладывается номер выбраного поля из выпадающего списка. Кажется начинаются они с 0, а вот коды стран с 1 (несоответствие).. Как выкрутиться, как настроить фильтр. Заранее благодарен!

[Stilet]

А может лучше вторую сделать подчиненной а первую главной?
Master-Details имею ввиду?

[Avalonix]

Хотелось бы заставить работать в таком варианте. Может тогда при помощи Query запросом отфильтровать? опять же тогда вопрос как результаты фильтрации записхать в DBLookupCombobox? Далее еще предполагается после фильтрации городов, при дальнейшем выборе города, фильтровались улицы принадлежащие только этому городу...

[AlexandrSid]

Я так понял через BDE работаешь.
В ADO просто устанавливаешь фильтр на таблицу, т.е.

ADOTable1-DataSourse1-DBLookUpCombobox1 Страна
ADOTable2-DataSourse2-DBLookUpCombobox2 Город

У DBLookUpCombobox1 на событие CloseUp пишешь.

procedure TForm1.DBLookUpCombobox1CloseUp(Sender:TObject);
begin
 ADOTable2.Filter:='IDStrana='+ADOTable1.FieldByName('ID').AsString;
 ADOTable2.Filtered:=True;
end;

Думаю в BDE будет так же.

[Avalonix]

Поясните пожалуйста строку ADOTable2.Filter:='IDStrana='+ADOTa ble1.FieldByName('ID').AsString;
что предполагает собой например IDStrana и FieldByName('ID') (непонятно что за ID)
в моей таблице стран поля называются: strany_cod(PK); strany_naimen.
в таблице городов поля: gorod_cod(PF), gorod_naimen, gorod_kstrany(FK)

[AlexandrSid]

Поясните пожалуйста строку ADOTable2.Filter:='IDStrana='+ADOTa ble1.FieldByNam e('ID').AsString;

Установть фильтр в таблице ADOTable2 (города), КодСтраны в таблице города равен коду страны выбранной в таблице ADOTable1 (страна) т.е. в поле DBLookUpCombobox1

ADOTable1.FieldByName('ID') код страны в табице страны (PK)
IDStrana код страны в таблице города (FK)
Т.е. для твоих таблиц будет

procedure TForm1.DBLookUpCombobox1CloseUp(Sender:TObject);   
begin  
 ADOTable2.Filter:='gorod_kstrany='+ADOTable1.FieldByName(strany_cod).AsString;   
 ADOTable2.Filtered:=True;   
end;

где ADOTable1 таблица страны, а ADOTable2 таблица города

[Avalonix]

первый комбобокс со странами дает выбрать страну, но при закрытии вылетает ошибка "Operation not applicable" Может это потому что я использую просто Table, а не ADOTable. Я с базой (Oracle) соединяюсь посредством ODBC

[AlexandrSid]

Покажи код

[Avalonix]

Возможно мой косяк где то... сейчас еще перепроверю

procedure TFormMPO.DBLComboBoxMPO_stranyCloseUp(Sender: TObject);
begin
 DataModule1.TableGoroda.Filter:='gorod_kstrany='+DataModule1.TableStrany.FieldByName('strany_cod').AsString;
 DataModule1.TableGoroda.Filtered:=True;
end;

[AlexandrSid]

Сейчас попробую с TTable може что подскажу.
Попробуй сделать тоже самое через ADOTabel