Perry you may want to move this part

IF NOT DBUSED(loObj.Database)
OPEN DATABASE (loObj.Database)
ENDIF
SET DATABASE TO (loObj.Database)

outside the FOR... NEXT loop, so it is executed only once.


>Here's the code I use to cycle and correct the pointer to the DBC:
>
>*- Get Object members of Dataenvironment -*
>=AMEMBERS(laCursorList, Thisform.DataEnvironment, 2)
>IF EMPTY(laCursorList[1])
> RETURN
>ENDIF
>
>*- loop thru cursors and replace database name with correct database to use -*
> IF ALEN( laCursorList,1) > 0
> FOR I = 1 TO ALEN(laCursorList,1)
> loObj = EVAL("Thisform.DataEnvironment." + laCursorlist[i])
> IF UPPER(loObj.BASECLASS) = 'CURSOR' AND '\' $ loObj.Database
> IF NOT EMPTY(loObj.Database)
> *- table in database -*
> loObj.Database = oApp.gcDbPath + oApp.gcDbName
> IF NOT DBUSED(loObj.Database)
> OPEN DATABASE (loObj.Database)
> ENDIF
> SET DATABASE TO (loObj.Database)
> ELSE
> *- free table -*
> loObj.CursorSource = oApp.gcDbPath + oApp.gcDbName
> ENDIF
> ENDIF
> NEXT
>ENDIF
>
>>Is there a way to programaticily cycle though all the tables in the DataEnvironment of a form? Seems like there should be a way I can have a For-Next loop that just goes though all the cursors in the DE (I'll know how many of them are there)
>>
>>Thanks....