WD9/28m - Defaut Treeviews ?

Aucune reponse ! Personne n'a constate ce defaut ?

I.G.LOG a formulé la demande :

Bonjour,
Dans une lecture de requete, j'utilise le code ci-apres:

Tantque SQLFETCH("Req") = 0
lRacine = "Chaine" + tab + "Chaine2"
lIdent = SQLLitCol("Req",1)
ArbreAjoute(TV,lRacine,aDéfaut,aDéfaut,lIdent,aSuivant+aAccepteDoublon)
Trace(lIdent)
fin

Le défaut:
ArbreAjoute avec le parametre aAccepteDoublon duplique certaines lignes (
alors que le trace me donne bien qu'une ligne) ?!
Sans ce parametre, tout est ok.

Oui c'est le bon comportement non ?
Le treeview sans le acceptedoublon laisse une seule branche; ce qui
n'est pas le cas du composant WB7 qui créeait une branche vide et sans
icone. C'est comme cela que j'avais repéré un bug sur mon appli en WD75
que je n'avais jamais vu. :/

Mais en relisant mieux ton post, tu dis avoir debuggué et n'avoir
réellement qu'une ligne ?
Mais j'avoue que je ne comprends pas ton code. C'est lRacine qui
identifie la branche et tu devrais avoir un truc qui implique une zone
de ton fetch ???
genre Maracine=lracine+TAB+Sqllicol("req",2)
lIdent est l'id de retour, pas un moyen d'individualiser une feuille.

Avez-vous deja rencontre ce probleme ?

--
Eric Roumégou
http://cerbermail.com/?TSoulBerPA
(cliquez sur le lien ci-dessus pour me contacter en privé)

> Mais j'avoue que je ne comprends pas ton code. C'est lRacine qui
identifie la branche et tu devrais avoir un truc qui implique une zone
de ton fetch ???
genre Maracine=lracine+TAB+Sqllicol("req",2)

Bonjour,
J'ai reduit le code pour exemple. lRacine est bien egale a qq chose comme
Sqllicol("req",x).
Mais le probleme est bien reel puisque lRacine est unique et qu'avec le
parametre aAccpeteDoublon, je retrouve plusieurs lignes ?!

D"ailleurs, voici le code exact:

SI Fichier:SQLExecute(lCond,lReq) ALORS
TANTQUE SQLFetch(lReq) = 0

// Init document
lImage = "SUIVAN3-.BMP"
lDoc = allouer un Document
lDoc:_Docum::Init(SQLLitCol(lReq,1))

// Libelle commande
lChaine = SansEspace(lDoc:REFTIERS) + " du " +
DateVersChaîne(lDoc:DATE,"JJ/MM/AA")

// Ajout au treeview
lRacine = "Commandes" + TAB + lChaine
TVCOMM:Ajoute(lRacine,lImage,lImage,"c"+lDoc:ident,aSuivant) //
Equivant a ArbreAjoute(...,aAccepteDoublon)

FIN
FIN