Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
DE cursorsource
Message
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01414556
Message ID:
01414589
Vues:
36
Naomi

I visited the link, and I saw the code below to put into beforeopentables method

As I have many forms, is there a way to grab all forms as objects
and run the code below to set all their DE.s ?

Moises





>>FUNCTION SetDBCPath
>>LPARAMETERS poFormDE,pcDBCPath,pcDBCName
>>LOCAL lcDBCName, lcFilePath, lnNumCursors, lnNdx
>>lcDBCName = FORCEEXT(pcDBCName,"DBC")
>>lcFilePath = ADDBS(pcDBCPath) + lcDBCName
>>lnNumCursors = AMEMBERS(lcProperties,poFormDE,2)
>>FOR lnNdx=1 TO lnNumCursors
>> IF UPPER(LEFT(lcProperties[lnNdx],6)) = "CURSOR"
>> IF ATC(lcDBCName,poFormDE.&lcProperties[lnNdx]..database) > 0
>> poFormDE.&lcProperties[lnNdx]..database = lcFilePath
>> ENDIF
>> ENDIF
>>ENDFOR
>>ENDFUNC
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform