LOCAL nDEOCount,iCounter,lUpdateable THIS.FormCursorCount=0 THIS.FormViewCount=0 nDEOCount=AMEMBERS(aDEObjects,THIS.DataEnvironment,1) FOR iCounter=1 TO nDEOCount IF aDEObjects(iCounter,2)="Object" WITH EVAL("THIS.DataEnvironment."+aDEObjects(iCounter,1)) IF .BaseClass= "Cursor" THIS.FormCursorCount=THIS.FormCursorCount+1 THIS.FormCursors(THIS.FormCursorCount,1)=.Alias IF CURSORGETPROP("Buffering",.Alias) < 2 OR .ReadOnly lUpdateable=.F. ELSE lUpdateable=.T. ENDIF THIS.FormCursors(THIS.FormCursorCount,2)=lUpdateable IF CURSORGETPROP("SourceType",.Alias) < 3 THIS.FormViewCount=THIS.FormViewCount+1 THIS.FormViews(THIS.FormViewCount,1)=.Alias THIS.FormViews(THIS.FormViewCount,2)=lUpdateable AND ; CURSORGETPROP("SendUpdates",.Alias) ENDIF ENDIF ENDWITH ENDIF ENDFOR RELEASE aDEObjects