Information générale
Catégorie:
Gestionnaire d'écran & Écrans
Here is some very simple code to enumerate through the different objects that could reside within the DE:
Local nObject,cObject,x
Local Array aObjects[1]
nObjects = Amembers(aObjects,ThisForm.DataEnvironment,2)
If nObjects > 0
For x = 1 To Alen(aObjects,1)
cObject = aObjects[x]
?ThisForm.DataEnvironment.&cObject..Class
Next cObject
Endif
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