DoDefault() WITH THISFORM * if there is a dataenvironment set the aliascurrent to InitialSelectedAlias IF TYPE(".Dataenvironment.Name") = "C" LOCAL oDE, oObj, nIdx, cObjName LOCAL ARRAY a_Obj[1], a_Files[1], a_tag[1] oDE= THIS.Dataenvironment IF EMPTY(.aliasCurrent) AND ! EMPTY(oDE.InitialSelectedAlias) .aliasCurrent= UPPER(oDE.InitialSelectedAlias) ENDIF IF ! oDE.AutoOpenTables * assumes app.dirData is set and/or fileinit specifier nObj= AMEMBERS(a_Obj, .Dataenvironment, 2) FOR EACH cObjName IN a_Obj oObj= EVALUATE(".Dataenvironment."+ m.cObjName) IF oObj.BaseClass = "Cursor" * Is the alias in fileInit? IF EMPTY(oObj.Database) * If a free table adjust the cursorsource oObj.CursorSource= app.fileinit.fileName(oObj.alias) ELSE * otherwise adjust the database source oObj.Database= app.fileinit.fileName(oObj.alias, .T.) ENDIF ENDIF ENDFOR oDE.OpenTables() ENDIF ENDIF && Dataenvironment ENDWITH>Dave,