dbgrid

[__cadetill]

Pues puedes hacerlo de dos maneras. O definiendo un campo loockup en la tabla lineasOT enlazado a la tabla productos o bien como yo te comentaba, creando un campo calculado en la tabla lineasOT. Personalmente y como alguna que otra vez me han dado quebraderos de cabeza los loockup, perfiero los segundos.

Cómo hacer unos o los otros. Bueno, seleccionas el TTable (o el dataset que sea), le haces doble clic, sino has añadido los campos físicos de la tabla, en la pantallita que te aparecerá le das al botón derecho y escoges Add All Fields (esto te creará los campos persistentes). Una vez los tienes, le vuelves a dar con el botón derecho pero esta vez escoges New Field.
Te aparecerá una pantallita donde has de poner el nombre del campo, tipo y, si es necesario, longitud. Aquí deberás decirle si es calculado o loockup. Si es el segundo, tendrás que rellenar las propiedades de la parte inferior de la pantalla, sino, aceptas la pantalla y listo.
Los campos calculados has de informarlos en el evento OnCalcField de tu Dataset. Yo suelo hacer algo como esto:

function TBDades.DameCalculado(EsNulo : Boolean; SQL, Text1, Text2 : string) : string;
var
  Q : TIBQuery;
begin
  Q := TIBQuery.Create(Application);
  Q.Database := IBDatabase1;
  Q.Transaction := IBTransaction1;
  try
    if EsNulo then
      Result := MissatgeText(Text1, IBDatabase1, IBTransaction1)
    else
    begin
      Q.SQL.Text := SQL;
      try
        Q.Open;
      except
        Result := MissatgeText('Error en la sentencia SQL', IBDatabase1, IBTransaction1);
      end;
      if Q.Fields[0].IsNull then
        Result := MissatgeText(Text2, IBDatabase1, IBTransaction1)
      else Result := Q.Fields[0].AsString;
    end;
  finally
    FreeAndNil(Q);
  end;
end;

y la llamada a esta función algo así

procedure TBDades.TEmpresesCalcFields(DataSet: TDataSet);
var
  SQL : string;
begin
     // Buscamos nombre de la moneda
     SQL := 'select nom from monedes where id_moneda = ' +
          QuotedStr(TEmpresesID_MONEDA.AsString);
     TEmpresesNomMoneda.AsString := DameCalculado(TEmpresesID_MONEDA.IsNull, SQL, 
                                  'Falta moneda', 'Moneda inexistente');
end;

Espero que te sirva de idea