| Posté le 06 décembre 2004 - 11:59 |
La procedure ci-dessous fonctionnait très bien en WD5
Mais cette dernière ne fonctionne plus en WD8
Il ne récupère plus les fils suivant ....
Pourquoi ??? la je sêche
Le but étant de dérouler dans les noeud d'un treeview à partir d'un point
donné
[Principale]
ArbreDéroule(Tv2:NomTreeView,noeud)
ArbreSelectPlus(Tv2:NomTreeView,noeud)
recurs_arbo(noeud)
[PROCEDURE recurs_arbo(Ncourant)]
ArbreDéroule(Tv2:NomTreeView,Ncourant)
ArbreSelectPlus(Tv2:NomTreeView,Ncourant)
NouveauN est une chaîne
NouveauN = ArbreRécupèreFils(Tv2:NomTreeView,Ncourant,aPremier)
TANTQUE NouveauN <> ""
ArbreSelectPlus(Tv2:NomTreeView,Ncourant+TAB+NouveauN)
Multitache(10)
SI ArbreTypeElement(Tv2:NomTreeView,Ncourant+TAB+NouveauN)=aNoeud ALORS
Trace("Traitement : "+Ncourant)
recurs_arbo(Ncourant+TAB+NouveauN) // <--------- Appel récursif
SINON
Trace("Traitement : "+Ncourant+TAB+NouveauN)
FIN
NouveauN = ArbreRécupèreFils(Tv2:NomTreeView,Ncourant,aSuivant)
FIN
Cordialement
Stef |
| |
| |
|