alias666
Messages postés308Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention23 mars 2010
-
1 avril 2008 à 11:19
alias666
Messages postés308Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention23 mars 2010
-
1 avril 2008 à 15:59
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
alias666
Messages postés308Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention23 mars 2010 1 avril 2008 à 15:21
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