problemas con un IBDataSet que depende de otro!!!

[Giniromero]

Hola a todos,

Continuo con mi aplicación en Delphi6 interbase 7 y dialecto sql 3.

en mi aplicación tengo un IBDataset, TbAlumnos, del que dependen en mayor o menor grado el resto de los IBDataSet.

Hay concretamente uno, que es el TbAnotaALU que tiene varios registros por cada Alumno.

Necesito que cada vez que se cambie el registro que se esté mostrando del TbAlumnos, también se cambie, en un DBGrid que tengo asociado a TbAnotaAlu, los registros relacionados con dicho alumno, Vamos, que pase a mostrar los del nuevo alumno activo.


Si a TbAnotaALU, en la propiedad DataSource, lo relacionamos con TbAlumnos me muestra todos los registros de la tabla.

Si no lo relaciono con TbAlumnos en la propiedad DataSource, y al abrir, guardar, Cancelar en el TbAlumnos, ejecuto este procedure:


procedure TFrmDModule.TbAnotaALUInicial(DataSet: TDataSet);
var str : String;
begin
TRY
TbAnotaALU.DisableControls;
TbAnotaALU.Close;
TbAnotaALU.SelectSQL.Clear;
TbAnotaALU.SelectSQL.Add(select CODIGO, NUMALU, NIC, TIPO, FECHA, DESCRIPCION from ANOTA);
IF (TbAlumnos.Active = True) and (not TbAlumnosNUMALU.IsNull) THEN BEGIN

TbAnotaALU.SelectSQL.Add('Where NUMALU =' + TbAlumnosNUMALU.AsString);
TbAnotaALU.SelectSQL.Add('Order by NUMALU, FECHA');
END;

try
TbAnotaALU.Open;
except
on E: Exception do begin
//guardamos en variable "str" el mensaje que queremos se muestre
str := 'Error abriendo TbAnotaALU con el mensaje : ' + E.Message;
Application.MessageBox(PChar(str), 'Atención', MB_OK);
end;
end;

FINALLY
TbAnotaALU.EnableControls;
END;


end;



Se situa siempre en el registro 0, por tanto, esté en el alumno que esté, me muestra SÓLO los registros para el alumno 0.

¿Alguna idea de lo que estoy haciendo mal?

¿alguna idea de como conectar estas dos tablas, para que me muestre los registros que necesito?

Muchas gracias

Virginia