lnObjects = amembers(laObjects, Thisform.DataEnvironment, 2) for lnI = 1 to lnObjects loObject = evaluate('toDE.' + laObjects[lnI]) if upper(loObject.BaseClass) = 'CURSOR' * do something with it endif nextNow, if it's a datasession you want to process, you need to use AUSED().