dv_vostr@mail.ru
Если заранее известно ключевое поле в 1-м Recordset, то можно использовать Lockup связи, если нет, то у TColumn есть свойство - FieldName, а у TTable - Filter & Filtered

Небольшой примерчик написанный на коленке. Может и работать, но главное идея.

procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
FieldName, Filter: String;
Field: TField;
Value: Variant;
begin
if Sender is TColumn then
begin
Field := (Sender as TColumn).Field;
Value := Table1.FieldByName(Field.FieldName).Value;
case Field.DataType of
// Контроль за типом поля
ftString: Filter := Field.FieldName + '="' + Value + '"';
ftInteger: Filter := Field.FieldName + '="' + IntToStr(Value) + '"';
end;
Table2.Filter := Filter;
Table2.Filtered := True;
end;
end;

dv_vostr@mail.ru
Если заранее известно ключевое поле в 1-м Recordset, то можно использовать Lockup связи, если нет, то у TColumn есть свойство - FieldName, а у TTable - Filter & Filtered

Небольшой примерчик написанный на коленке. Может и работать, но главное идея.

procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
FieldName, Filter: String;
Field: TField;
Value: Variant;
begin
if Sender is TColumn then
begin
Field := (Sender as TColumn).Field;
Value := Table1.FieldByName(Field.FieldName).Value;
case Field.DataType of
// Контроль за типом поля
ftString: Filter := Field.FieldName + '="' + Value + '"';
ftInteger: Filter := Field.FieldName + '="' + IntToStr(Value) + '"';
end;
Table2.Filter := Filter;
Table2.Filtered := True;
end;
end;
А вообще - Мыль (dv_vostr@mail.ru)- поговорим