LPARAMETER theDE,theDB LOCAL lnCount,loObject LOCAL ARRAY laMembers(1) IF AMEMBERS(laMembers,thede,2) > 0 FOR lnCount = 1 TO ALEN(laMembers,1) loObject = EVAL("theDe."+laMembers(lnCount)) IF UPPER(ALLTRIM(loObject.BaseClass))="CURSOR" loObject.Database = gcDatadirectory+thedb ENDIF LoObject = .NULL. ENDFOR ENDIFHTH,