> * Check for cursors
> FOR i = 1 TO m.nTotMem
> IF UPPER(EVAL("."+aMems[m.i]+".BaseClass")) = "CURSOR"
> WITH EVAL("."+aMems[m.i])
> STORE .Database TO cDB
> cDB = SUBSTR(cDB,RAT('\',cDB)+1)
> .Database = SUBSTR(FULLPATH(cDB),1,RAT('\',FULLPATH(cDB)))+cDB
> ENDWITH
> ENDIF
> ENDFOR
> .OpenTables()
> ENDIF
> ENDWITH
>ENDIF
>RELEASE oEnviron
Hi,
Sorry it has taken me such al long time to reply.
I had some urgent busines to take care off.
Next i am loking to your tip, will surely try it.
Thanks already, will give you a sign.
Regards, Marc
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement