* Make a list of all the cursors in the Data Environment = AMEMBERS(laObjectList,ThisForm.DATAENVIRONMENT,1) =ASORT(laObjectList, 2) * Plug in our data path IF ASCAN(laObjectList, "Object") > 0 nStartpos=ASUBSCRIPT(laObjectList, ASCAN(laObjectList, "Object"),1) FOR I = nStartpos TO ALEN(laObjectList,1) IF laObjectList(I,2) = "Object" cObjClass = "ThisForm.DATAENVIRONMENT." + laObjectList(I,1)+".class" IF EVALUATE(cObjClass)="Cursor" cObjName="ThisForm.DATAENVIRONMENT." ; + laObjectList(I,1)+".DATABASE" Data_Name=EVALUATE(cObjName) NewDataPath = ThisForm.cDataPath + '\' + ALLTRIM(SUBSTR(Data_Name, RAT("\",Data_Name)+1)) oRef = EVALUATE( "ThisForm.DATAENVIRONMENT."+laObjectList(I,1) ) *Modify the Database property with the new path oRef.DATABASE = NewDataPath ENDIF ELSE EXIT ENDIF ENDFOR ENDIF