Hi Dani.
Das Erstere w�rde mir im Moment (Zeitnot) eher zusagen. Ich habe alle Nodes
in einer Tabelle,
aber beim Durchlaufen harperts...
Ich habe in der Table folgende Zuordnungen (Feld parent):
oberste Ebene: 1
n�chste Ebene: 2
alle Ebenen innerhalb 1 und 2:
Bsp. (letztes Feld = parent):
insert into bcm_mainmenu values ('Stammdaten',1);
insert into bcm_mainmenu values ('Produktionsstandards',2');
insert into bcm_mainmenu values ('Personalstandard',0');
insert into bcm_mainmenu values ('Technikstandard',0');
insert into bcm_mainmenu values ('Personal',2');
insert into bcm_mainmenu values ('Personal & Einsatzart',0');
insert into bcm_mainmenu values ('Mitarbeiterliste Produktion',0');
Gru�
Steffen
-------------------------------------------------------------------------
Problem: So wie ich das mache,funktionert der Aufbau der Hierarchie nicht.
Mein lausiger und nicht funktionierender Code:
da.SelectCommand = New OdbcCommand("SELECT * from mainmenu ORDER BY sortid",
conn)
.
Dim rootNode As New TreeNode("Hauptmen�")
Dim newNode As New TreeNode
MainTreeView.Nodes.Clear()
MainTreeView.Nodes.Add(rootNode)
ParentID = 0
For Each dr In dt.Rows
newNode = New TreeNode(CStr(dr.Item("progtext")))
newNode.Tag = CInt(dr.Item("progid"))
If CInt(dr.Item("parent")) = 1 Then
MainTreeView.TopNode.Nodes.Add(newNode)
ParentID = 1
End If
If CInt(dr.Item("parent")) = 2 Then
rootNode.Nodes(0).Nodes.Add(newNode)
ParentID = 2
End If
If CInt(dr.Item("parent")) = 0 Then
If ParentID = 1 Then
rootNode.Nodes.Add(newNode)
End If
If ParentID = 2 Then
rootNode.Nodes(0).Nodes.Add(newNode)
End If
Next
_______________________________________________
Framework.net Mailingliste, Postings senden an:
[email protected]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/framework.net
