> > CREATE CURSOR RESIDENT ( iid I ) > > CREATE CURSOR REPONDANT ( iid I , IRESIDENTID I , Lcopy L ) > > FOR x = 1 TO 6 > INSERT INTO RESIDENT ( iid ) VALUES ( x ) > ENDFOR > > INSERT INTO REPONDANT ( iid , IRESIDENTID , Lcopy ) VALUES ( 1, 2 , .F.) > INSERT INTO REPONDANT ( iid , IRESIDENTID , Lcopy ) VALUES ( 2, 2 , .F.) > INSERT INTO REPONDANT ( iid , IRESIDENTID , Lcopy ) VALUES ( 3, 3 , .T.) > INSERT INTO REPONDANT( iid , IRESIDENTID , Lcopy ) VALUES ( 4, 5 , .F.) > INSERT INTO REPONDANT( iid , IRESIDENTID , Lcopy ) VALUES ( 5, 5 , .T.) > INSERT INTO REPONDANT( iid , IRESIDENTID , Lcopy ) VALUES ( 6, 5 , .T.) > > > SELECT RESIDENT.iid AS 'iresId',; > REPONDANT.iid AS 'irepid',; > REPONDANT.Lcopy; > FROM RESIDENT LEFT OUTER JOIN REPONDANT ; > ON RESIDENT.iid = REPONDANT.IRESIDENTID; > WHERE REPONDANT.Lcopy IS NULL OR; > REPONDANT.Lcopy ; > ORDER BY RESIDENT.iid INTO CURSOR TEMPS > > * I WANT > * iresid irepid lcopy > * 1 NuLL NULL > * 2 2 .F. && last repondant > * 3 3 .T. > * 4 NULL NULL > * 5 5 .T. > * 5 6 .T. > * 6 NULL NULL > > > * I HAVE > * 1 NuLL NULL > * 3 3 .T. > * 4 NULL NULL > * 5 5 .T. > * 5 6 .T. > * 6 NULL NULL > > >>
>>>SELECT Resident.iid AS 'iresId',; >>> Repondant.iid AS 'irepid'; >>> FROM amline!Resident ; >>> LEFT OUTER JOIN amline!Repondant ; >>> ON Resident.iid = Repondant.iresidentid; >>> WHERE Repondant.lcopyfact = ( .T. ); >>> ORDER BY Resident.iid >>> >>>>>>