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