Noeud dans un treeview [Résolu]

Signaler
Messages postés
308
Date d'inscription
mardi 1 juin 2004
Statut
Membre
Dernière intervention
23 mars 2010
-
Messages postés
308
Date d'inscription
mardi 1 juin 2004
Statut
Membre
Dernière intervention
23 mars 2010
-
alias666,

----

Voir le profil public,

----

Envoyer un message privé à alias666,

----

Trouver plus de messages par alias666



<!-- / post 3105267 popup menu -->
<!-- END TEMPLATE: postbit_legacy -->
<!-- BEGIN TEMPLATE: spacer_close -->
<!-- / close content container -->
<!-- END TEMPLATE: spacer_close -->
<!-- / post #3105267 -->
<!-- END TEMPLATE: postbit_wrapper -->
<!-- start content table -->
<!-- BEGIN TEMPLATE: spacer_open -->
<!-- open content container -->
<!-- END TEMPLATE: spacer_open -->
<!-- / start content table -->
<!-- controls below postbits --> 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

Seulement mon code ne fait pas du tout ce genre de procédé.
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)
 
 
WhileNot 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)
EndIf

GroupMcu = GroupMcuNew
ObjAdoDri.MoveNext

Wend

Merci d'avance

_______________________
<<<< :-: 4L!@$ :-: >>>>

2 réponses

Messages postés
308
Date d'inscription
mardi 1 juin 2004
Statut
Membre
Dernière intervention
23 mars 2010

J'ai trouvé la réponse à mon probleme

_______________________
<<<< :-: 4L!@$ :-: >>>>
Messages postés
308
Date d'inscription
mardi 1 juin 2004
Statut
Membre
Dernière intervention
23 mars 2010

Personne n'a une idée...

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

GroupMcu1
.....|___Mcu1Group1
.....|___Mcu1Group1
.....|___Mcu1Group2
.....|___Mcu2Group2
.....|___Mcu1Group3
GroupMcu2
GroupMcu3
    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

_______________________
<<<< :-: 4L!@$ :-: >>>>