|
Maestro detalle con TIBQuery
Hola a todos
Antes de nada : Delphi 2010 y FireBird 2.1
Tengo dos TIBQuery y quiero ligarlos en una relación maestro-detalle.
Primer TIBQuery (QPacientes)
Apunta a una tabla (Pacientes) que tiene como PK el campo CODPACIENTE
Segundo TIBQuery (QDetalle)
Apunta a una tabla (DetallePacientes) que tiene como PK el campo NUMERO, que es autoincrementable y tiene el campo CODPACIENTE para ligarlo al anterior
Para establecer la relación maestro-detalle hago lo siguiente :
En el SQL de QPacientes pongo : SELECT * FROM PACIENTES
En el SQL de QDetalle pongo SELECT * FROM DETALLEPACIENTES WHERE CODPACIENTE = :CODPACIENTE
En código establezco la relacion entre los datasource de ambos ...
QDetalle.datasource := QPacientes.datasource;
A QDetalle le asigno su dataprovider y su clientdataset. A éste un datasource y a éste una rejilla.
El problema es que no me da ningún error pero no me muestra los detalles en la rejilla.
No sé qué es lo que estoy haciendo mal. Os agradecería vuestra ayuda
Gracias de antemano
|