Ayuda con Dbgrib y query active

[ecfisa]

Hola.

Según entendí deseas que cuando ingresen el valor de determinado campo de una tabla T1, este sea buscado en otra tabla T2 mediante una consulta. Esta consulta debería retornar el valor de otro campo de T2 que a su vez será asignado a otro campo en T1.

Si no me equivoqué en la apreciación, podrías usar el evento OnSetText del campo de la tabla T1 en que estas ingresando la información:

Código Delphi [-]
type
  TForm1 = class(TForm)
    ...
    procedure FormCreate(Sender: TObject);
  private
    procedure tuCampoSetText(Sender: TField; const Text: string);
  public
  end;
...

implementation

procedure TForm1.tuCampoSetText(Sender: TField; const Text: String);
begin
  DataSetT1.Edit;
  QueryT2.Close;
  QueryT2.SQL.Clear;
  QueryT2.SQL.Text := 'SELECT * FROM T2 WHERE CPO_A_BUSCAR = :VALOR';
  QueryT2.ParamByName('VALOR').AsString := Text;
  QueryT2.Open;
  DataSetT1.FieldByName('CPO_A_ASIGNAR').AsString := QueryT2.FieldByName('CPO_ENCONTRADO').AsString;
  Sender.AsString := Text;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DataSetT1.FieldByName('Nivel').OnSetText:= tuCampoSetText;
end;
...

Donde:

• DataSetT1 -> Tabla de ingresos.
• QueryT2 -> Tabla de consulta.
• CPO_INGRESADO: Es el campo de T1 donde ingresas el valor que será buscado en T2.
• CPO_A_BUSCAR: Es el campo de T2 a comparar con CPO_INGRESADO.
• CPO_A_ASIGNAR: Es el campo de T1 al que se le asigna el resultado de la búsqueda en T2.
• CPO_ENCONTRADO: Es el campo de T2 que se asignará a CPO_A_ASIGNAR.

Si creas los campos persistentes, podes asignar el evento OnSetText haciendo doble click sobre dicho evento del campo desde el Object Inspector, yo lo hice manualmente para que sea mas claro el ejemplo.

De este modo y si lo deseas, incluso podes prescindir del TDBEdit, ya que realizará el cambio aún escribiendo sobre el DBGrid.

Saludos.