Information générale
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
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
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