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
