<b>local locursor IF AMEMBERS(laCursor,ThisForm.DataEnvironment,2)>0 FOR lnCompteur=1 TO ALEN(laCursor) locursor = EVAL("ThisForm.DataEnvironment."+laCursor[lnCompteur]) if vartype(locursor) = "O" ; and upper(locursor.BaseClass) = "CURSOR" then * object is not a relation so you can * process Alias property of locursor object endif NEXT ENDIFHTH.
>IF AMEMBERS(laCursor,ThisForm.DataEnvironment,2)>0 > FOR lnCompteur=1 TO ALEN(laCursor) > lcExec='ThisForm.DataEnvironment.'+laCursor[lnCompteur] > =AMEMBERS(laCursor2,&lcExec) > IF laCursor2[1]='ALIAS' > * We have an alias > * We can add the code here to do some process > ENDIF > NEXT >ENDIF >>