Treeview: déployer jusqu'à un niveau déterminé

**tAKAmAkA** · 02/03/2007, 23h09

Bonjour à tous,

J'ai un treeview sur 7 niveaux qui me représente l'organisation de mon stockage. (Entité, Dépôt, Magasin, Epi, Travée, Tablette, Article).

J'aimerai, lorsque je crée ou modifie un Epi (par exemple) le treeview se raffraichisse (ça, c'est ok, déclenché par un after update) et, idéalement, qu'il se déploye seulement jusqu'au niveau des Epis et, si possible, que l'Epi créé ou modifié reçoive le "focus" de manière à le situer immédiatement.

Il y aurait-il une info donnant le niveau "hiérarchique" du noeud, ou qq chose de similaire?

Merci de votre attention.
JC

**helas** · 03/03/2007, 21h47

L'element de clé NomCle est sélectionné comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Me.NomTreeView.nodes("NomCle").Selected = True

**tAKAmAkA** · 04/03/2007, 13h55

Merci helas,

C'est exactement ce qu'il me faut puisse-que, à la fois, ça me déploie le treeview et me selectionne le noeud (à la condition de faire un NomTreeView.SetFocus)

Pour l'instant je peux faire fonctionner en mettant un numéro de noeud.
Mais, effectivement il faudrait mettre le nom du noeud car je ne connais pas son numéro.
Mes noeuds sont composés comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
With oRst
        While Not .EOF
            'Compose le texte affiché
            If Len(StrID) > Len(.Fields(0)) Then
                strLibelle = .Fields(0).Value & " -- >>  " & .Fields(1).Value
            Else
                strLibelle = .Fields(0).Value & " -- <<  " & .Fields(1).Value
            End If
            'Teste le cas de la racine
            If StrID = "0" Then
                oT.Nodes.Add Key:="S" & .Fields(0).Value, _
                     Text:=strLibelle
            Else
                oT.Nodes.Add "S" & StrID, tvwChild, "S" & .Fields(0).Value, strLibelle
            End If
            'Lance le même traitement avec ce parent
            remplissageTreeView oT, odb, oRst.Fields(0).Value
            'Passe à l'enregistrement suivant
            .MoveNext
        Wend
    End With

Je teste pour l'instant avec une chaine du genre: "11A -- << Epi Gauche" mais j'ai en retour "Elément introuvable".

A propos de ce code que jai' trouvé sur DC: A quoi sert le bout de chaine "S" au début de la Key? (C'est moi qui ai mis "S" mais je crois que dans l'exemple c'était "emp".

Au sujet de l'aide: F1 me renvoie un page vide, quelque chose ne serait pas installé?

A bientôt de te lire.