Probleme simple de treeview

Version imprimable

Bonjour à tous,

J'ai une petite demande de dev à faire et seulement toute cette demande est finie sauf un dernier composant que j'arrive pas à magner c'est le treeview

Actuellement j'ai une arborescence à faire de ce style

GroupMcu 1
.......|_______Mcu de groupmcu1

GroupMcu 2
.......|_______Mcu de groupmcu2

Actuellement voici mon code et ce qu'il me fait

GroupMcu 1
.......|_______Mcu de groupmcu1
.......|.........................|_____Mcu de groupmcu2
.......|
GroupMcu 2
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sql = "SELECT GroupMcuCode,GroupMCUName, MCUName FROM " & base & ".T_MCU, " & base & ".T_GroupMCU WHERE T_MCU.MCUGroupCode = T_GroupMCU.GroupMcuCode ORDER BY GroupMcuName ASC" Indiceconnection = Fct_RechercheConnection(CustURL) Index = 0 Set ObjAdoDri = TabCustUrl(Indiceconnection).ObjAdoCust.Execute(Sql) While Not ObjAdoDri.EOF GroupMcuNew = ObjAdoDri!GroupMcuName If GroupMcu = GroupMcuNew Then Set NodeX = tvMCU.Nodes.Add(1, tvwChild, , ObjAdoDri!MCUName) Else Set NodeX = tvMCU.Nodes.Add(, , , ObjAdoDri!GroupMcuName) End If GroupMcu = GroupMcuNew ObjAdoDri.MoveNext Wend

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
    Sql = "SELECT GroupMcuCode,GroupMCUName, MCUName FROM " & base & ".T_MCU, " & base & ".T_GroupMCU WHERE T_MCU.MCUGroupCode = T_GroupMCU.GroupMcuCode ORDER BY GroupMcuName ASC"
    Indiceconnection = Fct_RechercheConnection(CustURL)
 
    Set ObjAdoDri = TabCustUrl(Indiceconnection).ObjAdoCust.Execute(Sql)
 
 
    While Not ObjAdoDri.EOF
 
        GroupMcuNew = ObjAdoDri!GroupMcuName
 
        If GroupMcu = GroupMcuNew Then
            'Création d'un Mcu
            Set NodeX = tvMCU.Nodes.Add(1, tvwChild, , ObjAdoDri!MCUName)
        Else
            'Création d'un Groupe
            Set NodeX = tvMCU.Nodes.Add(, , , ObjAdoDri!GroupMcuName)
 
            Set NodeX = tvMCU.Nodes.Add(1, tvwChild, , ObjAdoDri!MCUName)
        End If
 
        GroupMcu = GroupMcuNew
        ObjAdoDri.MoveNext
        DoEvents
    Wend

personne n'a une idée, ca serait vraiment le pied, car le reste du dev se passe dessus et je bute comme un plot depuis 1 journée déjà...

Essaye çà que j'écris à la volée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
   While Not ObjAdoDri.EOF
 
            'Création d'un Groupe
            On error resume next  'comme çà il ne plantera pas si le node existe déjà
            Set NodeX = tvMCU.Nodes.Add(, ,ObjAdoDri!GroupMcuName , ObjAdoDri!GroupMcuName)          
            Set NodeX = tvMCU.Nodes.Add(ObjAdoDri!GroupMcuName, tvwChild, ObjAdoDri!MCUName, ObjAdoDri!MCUName)
            on error goto 0
        End If
 
        ObjAdoDri.MoveNext
        DoEvents
    Wend