>> >> 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 >>>> >>>>>>>>