Фильтрация подчиненной таблицы

[chinara]

Здравствуйте, дорогие господа-программисты!

Не подскажете как можно отфильтровать подчиненную таблицу по выбранному внешнему ключу?

Т.е. у меня есть главная таблица Manufacturer, с именами производителей, и связанная с ней дочерняя таблица Comp_model.Связала я эти таблицы по полю ID.
На форме редактирования компьютеров,мне нужно реализовать следующее:
выбрала я Manufacturer для данного компа -> таблица Comp_model фильтруется сразу, и уже в выпадающем списке Model я вижу только модели данного производителя.

Если можно,то пожалуйста код пропишите.

[chinara]

Почему-то мне никто не хочет ответить

Итак, код я написала...только вот он невполне корректно работает((((

На форме редактирования у меня есть два DBLookupComboBox-а: для Manufacturer и Model. На событие OnCloseUp первого DBLookupComboBox-а я пишу код:

PHP код:

procedure TComputerEditForm.DBLookupComboBox1CloseUp(Sender: TObject);
var
str:string;
begin
if DBLookupComboBox1.Text<>'' then
begin
MainDM.TComp_model.Filtered:=False;
str:=DBLookupComboBox1.Text;
if (MainDM.TManufacturer.FieldByName('Manufacturer').AsString=str then
x:=MainDM.TManufacturer.FieldByName('ID').AsInteger;
MainDM.TComp_model.Filtered:=true;
end
                                           else
MainDM.TComp_model.Filtered:=False;
end; 


а на событие OnFilterRecord таблицы Comp_model пишу код:

PHP код:

procedure TMainDM.TComp_modelFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  accept:=MainDM.TComp_model.FieldByName('ID').AsInteger=x;
end; 


Так вот, первый раз фильтрация идет нормально, я выбираю определенного Manufacturer, и таблица Comp_model нормально фильтруется. Но уже когда при следующем добавлении новой записи я выбираю другого Manufacturer программа выдает ошибку о том, что в таблице Comp_model нет соответствующей записи. Мне кажется, что сброс фильтрации таблицы у меня некорректно идет....

Очень прошу, помогите найти ошибку.

[chinara]

Ну почему никто не отвечает??(((((