Versions des environnements
Hi,
Short code ... It might looks like
lcVCX = GETFILE("VCX")
AVCXCLASSES(aCls,lcVCX)
FOR Lni=1 TO ALEN(aCls,1)
lcClassName = aCls[lni,1]
Try
MODIFY CLASS (lcClassName) OF (lcVCX) NOWAIT
CATCH WHEN .t.
?"Can't open class "+lcClassname+" of "+JUSTFNAME(lc)
EndTry
ENDFOR
Note: If parent class already open for edit, then Modify class call error.
>Hi all
>
>How to write a small prg to take a vcx and open all it's classes one by one for editing.
>
>Please advise.
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