Discussion :

[alias666]

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 :

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
 
    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

[alias666]

Personne n'a une idée...

Actuellement le "mieux" que j'ai pu faire c'est :

GroupMcu1
.....|___Mcu1Group1
.....|___Mcu1Group1
.....|___Mcu1Group2
.....|___Mcu2Group2
.....|___Mcu1Group3
GroupMcu2
GroupMcu3

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
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à...

[Delbeke]

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

Code :

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

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