Problème treeview

Signaler
Messages postés
18
Date d'inscription
vendredi 10 septembre 2010
Statut
Membre
Dernière intervention
10 octobre 2011
-
Messages postés
18
Date d'inscription
vendredi 10 septembre 2010
Statut
Membre
Dernière intervention
10 octobre 2011
-
slt j'ai le problème suivant.j'utilise un contrôle treeview avec lequel j'ai créé une hiérarchie.chaque objet ayant un objet fils.sauf que je veux rendre invisible les objets fils.voici le code que j'ai utilisé
Private Sub O1_Click()
On Error Resume Next
D1.Visible = False
'd1 est un datagrid
Tv1.Visible = True
O2.Value = False
TV2.Visible = False
Dim i As Integer
i = 0
A2.ConnectionString = vchaine
A2.CommandType = adCmdTable
A2.RecordSource = "service"
Tv1.Nodes.Add , , "C", "SERVICE"
A2.Refresh
Do While Not A2.Recordset.EOF
Tv1.Nodes.Add "C", tvwChild, "C" & CStr(i), A2.Recordset.Fields(1)
Tv1.Nodes.Add "C" & CStr(i), tvwChild, "CL" & CStr(i), A2.Recordset.Fields(0)
i = i + 1
A2.Recordset.MoveNext
Loop
Tv1.Nodes(1).Expanded = True
end sub
table service(numser,libser)
MERCI D'AVANCE

2 réponses

Messages postés
69
Date d'inscription
jeudi 22 décembre 2005
Statut
Membre
Dernière intervention
20 juin 2011

bonjour,

Par défaut, les fils ne se voient pas c'est pour cela qu'on utilise la méthode ".ensure visible".
Cependant, essaye ce code :

Tv1.Nodes.Add "C" & CStr(i), tvwChild, "CL" & CStr(i), A2.Recordset.Fields(0)
Tv1.Nodes("CL" & CStr(i)).Visible = False

Tiens-moi au courant.

Cordialement,

Subaqua.
Messages postés
18
Date d'inscription
vendredi 10 septembre 2010
Statut
Membre
Dernière intervention
10 octobre 2011

j'ai essayé ton code mais il marche pas.m6 kan mm on continue la recherche