Hi Mike,

This what I've been using. It's based on some code that Ed Pikman showed me.

** Retrieve the names of everything in a forms DE
=amembers(laTableNames, thisform.dataenvironment, 2)

** If any exist
IF vartype(laTableNames) != "U"
	FOR lnCount = 1 TO alen(laTableNames)

		** strip off all the relation objects
		IF like("CURSOR*", laTableNames(lnCount))

			lcTable = "thisform.DataEnvironment."+ laTableNames[lnCount]+ ".cursorsource"
			lcTable = eval(lcTable)

			** rebuild the array
			DIMENSION paTablesUsed(lnUsedCount,1)
			paTablesUsed(lnUsedCount,1) = lcTable
			lnUsedCount = lnUsedCount + 1
		ENDIF
	ENDFOR
ENDIF

>Is there a way to loop through all controls in a datasession ( I didn't see a controls or objects property ) and only choose the Cursor base classes, or do I have loop hrough the work areas period?