Фильтр по связанным таблицам

[lition1]

Здравствуйте.
Такое дело:

Есть 2 ADOTable связанных по полям.
На форме размещены 2 DBGrid подключенных к ADOTable. Данные во втором компоненте отображаются в зависимости на какой записи установлен курсор в первом компоненте.

Нужно сделать фильтр по втором DBGrid.
Использую событие OnFilterRecord компонента ADOTable2 к которому подключен DBGrid2. Но результат фильтрования выводит данные уже не зависимо на какой записи стоит курсор в DBGrid1.

begin
        Accept:=pos(AnsiUpperCase(FStock.Edit1.Text),AnsiUpperCase(DataSet['SpName']))<>0;
end;

Помогите уточнить поиск...

[Аватар]

а ADOTable2.Filtered в True устанавливаешь?

[lition1]

а ADOTable2.Filtered в True устанавливаешь?

Да! В событии EditChange...
Приведенный пример работает, только не так как нужно...
Нужно чтоб фильтровало только те данные, которые относятся к записи на которой курсор в данный момент в DBGrid1.

[asmodey1]

Продублируйте условие связи между таблицами в фильтре. Что-то вроде:

ADOTable2.Filter:=ADOTable2.Filter+' and полесвязи.AsString=' + ADOTable1.полесвязи.AsString;

[lition1]

Продублируйте условие связи между таблицами в фильтре. Что-то вроде:
Код:

ADOTable2.Filter:=ADOTable2.Filter+ ' and полесвязи.AsString=' + ADOTable1.полесвязи.AsString;

Что-то не получилось. Выдало ошибку:
Filter property cannot be used for ... tables

Может можно как-то уточнить фильтр, по типу:

 
begin
          Accept:=pos(AnsiUpperCase(FStock.Edit1.Text),AnsiUpperCase(DataSet['SpName']))<>0 and
          DataSet.FieldByName('IdClient').Value = FStock.DBGrid1.SelectedField.DataSet.FieldValues['ClientId'];
end;

[Аватар]

нужно в ADOTable1.AfterScrool манипулировать с фильтром если он привязан к данным текущей записи ADOTable1

[lition1]

нужно в ADOTable1.AfterScrool манипулировать с фильтром если он привязан к данным текущей записи ADOTable1

А поподробней можно?

[alexvav]

сдаётся мне, ты требуешь невозможного.

[Аватар]

Если я правильно понял, то связка идет по полям ClientId в ADOTable1 и IdClient в ADOTable2. Откажитесь от OnFilterRecord и, если они имеют тип Integer, можно использовать код:

procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin
  ADOTable2.Filtered:=False;
  ADOTable2.Filter:=Format('IdClient=%d',[ADOTable1.FieldByName('ClientId').AsInteger]);
  ADOTable2.Filtered:=True;
end;

[lition1]

для, Аватар
Спс, попробовал...
Та же фигня, Filter property cannot be used for detail tables...