Ver Mensaje Individual
  #2  
Antiguo 11-07-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola DANIEL1818.

Reemplaza el componente ADOTable (detalle) por un ADOQuery y luego este código:
Código Delphi [-]
procedure TForm.FormCreate(Sender: TObject);
begin
  qyDetail.Close;
  qyDetail.DataSource := dsMaster; // DataSource -> Tabla maestro
  qyDetail.SQL.Clear;
  qyDetail.SQL.Add('SELECT * FROM TABLA_DETALLE');
  qyDetail.SQL.Add('WHERE MASTER_ID = :ID AND ESTADO_COMENTARIO <> :BORRADO');
  qyDetail.Parameters.ParamByName('BORRADO').Value := 'DATO_BORRADO';
  qyDetail.Open;
end;
También deberás cambiar:
  • TABLA_DETALLE por el nombre que le hayas dado a la tabla detalle.
  • MASTER_ID por el nombre de la columna de la tabla detalle que referencia a la columna clave de la tabla maestro.
  • ID por el nombre de la columna clave de la tabla maestro. (No quites los dos puntos ":" que preceden al nombre o no funcionará)
  • DATO_BORRADO por el tipo y valor que posee la columna ESTADO_COMENTARIO.
saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita