[ecfisa]

Hola.

Abrí el Field Editor y poné este código de ejemplo en el evento OnChange del campo Lookup que creaste:

Código Delphi [-]
procedure TForm1.DataSet2CampoLookupChange(Sender: TField);
begin
  DataSet1.Locate('CampoRefDataSet1',DBGrid2.SelectedField.AsString,[]);
  (* Aca realizas las acciones que te interesen.
     En el ejemplo muestra el campo y aborta la operación *)
  ShowMessage(DataSet1CampoRefDataSet1.AsString);
  Abort;
end;

Podés usar el ejemplo tranquilo ya que aborta toda operación.

'DataSet2CampoLookup' es el nombre del campo calculado, 'DBGrid2' está referenciando a 'DataSet2' y 'CampoRefDataSet1' es el campo que está declarado en la propiedad KeyFields del campo calculado del 'DataSet2' y corresponde al 'DataSet1'.

Toda esta parafernalia sobre los nombres es necesaria por que desconozco cuales usaste.


Saludos.