>Hello,
>
>I need to know in this bucle which object -cursor- I am examining:
>
>For Each "cursor" In Thisform.DataEnvironment.objects
> ***I need to know here which object I am currently examining
>Endfor
>
>thanks in advance,
>Pablo Velazco

For each oObj In Thisform.DataEnvironment.objects
  if lower(m.oObj.baseclass) = 'cursor'
     wait window timeout 2 ;
     'Name :'+m.oObj.Name+Chr(13)+;
     'Alias :'+m.oObj.Alias+Chr(13)+;
     'Database :'+m.oObj.Database+Chr(13)+;
     'CursorSource :'+m.oObj.CursorSource
	EndIf
endfor

Cetin