Master / Detail Quickreport

[ContraVeneno]

En lugar de abrir un TQuery, luego un TADOTable y luego todo el relajo que estas haciendo, sería mucho mejor simplemente utilizar un Tquery.

Código Delphi [-]
With TuQuery do begin
 if active then close;
 SQL.Clear;
 SQL.Add('Select I.Medico, I.Fecha, I.Paciente.....etc'); //todos los campos que necesitas de Indicaciones
 SQL.Add('M.Medicamento, M.Cantidad, M.Precio.....etc'); //todos los campos que necesitas del detalle
 SQL.Add('From Indicaciones I');
 SQL.Add('join Detalle_Ind M on I.Llave = M.Llave'); //tu campo llave que une a los dos tablas
 SQL.Add('where I.Cod_ID = :CodigoIndicacion');
 ParamByName('CodigoIndicacion').AsString := DBEdit2.Text;
 Open;
end; //

Y luego simplemente enlazas tu reporte a este query y listo.
Nunca es recomendable utilizar "Select *", las bases de datos cambia y seguro a tu aplicación en algún momento le cambiaras algo y si utilizas "Select *" un cambio que hagas en la base de datos, ocasionará que cambies también el programa.

[The_Duke]

lo solucione de esta forma y sale bien

Código Delphi [-]
With Form1 do begin
With ADOQuery1 do begin
 if active then close;
 SQL.Clear;
 SQL.Add('Select I.Cod_med, I.Fecha, I.Cod_pac, I.cod_ind'); //todos los campos que necesitas de Indicaciones
 SQL.Add('From Indicaciones I');
 SQL.Add('where I.cod_ind = :CodigoIndicacion');
 Parameters.ParamByName('CodigoIndicacion').Value := DBEdit2.Text;
 Open;
end;
With ADOQuery2 do begin
 if active then close;
 SQL.Clear;
 SQL.Add('Select M.Cod_medi, M.cantidad, M.dosis'); //todos los campos que necesitas de Indicaciones
 SQL.Add('From IM M');
 SQL.Add('where M.cod_ind = :CodigoIndicacion');
 Parameters.ParamByName('CodigoIndicacion').Value := DBEdit2.Text;
 Open;
end;
Form1.QuickRep1.Preview;
end;

sobre esto:

Código Delphi [-]
Data.Tindicaciones.edit; // edito porque andes de guardar puede que de error y asi me lo evito
Data.Tindicaciones.post; // graba la tabla con lo datos que se le introdujo
y esto
Form1.QuickRep1.Preview; // indico que el qreport esta en ese formulario que seria igual a:
With Form1 do begin
 QuickRep1.Preview;
end;

Gracias por ayudarme