Here is some very simple code to enumerate through the different objects that could reside within the DE:

Local nObject,cObject,x
Local Array aObjects[1]
nObjects = Amembers(aObjects,ThisForm.DataEnvironment,2)
If nObjects > 0
For x = 1 To Alen(aObjects,1)
cObject = aObjects[x]
?ThisForm.DataEnvironment.&cObject..Class
Next cObject
Endif