[Framework.net] =?ISO-8859-1?Q?Re=3A_=5BFramework=2Enet=5D_Re=3A_=5BFramew?= =?ISO-8859-1?Q?ork=2Enet=5D_Re=3A_=5BFramework=2Enet=5D_TreeView-M?= =?ISO-8859-1?Q?en_=FC_aus_Datenbank-Table_generieren?=

[Stephan Troxler]

Am einfachsten lässt sich diese Problematik mit einem Sort-Schlüssel 
lösen. Punkt 1 ist 001, Punkt 1.1 ist 001.001, Punkt 1.2 ist 001.002 etc.
Um den Baum mit allen entsprechenden Nodes zu öffenen kannst Du mit 
einem LIKE alle darunterliegenden Nodes holen:

>>Select From Eintrag where sortID LIKE '001.___'
liefert z.B. alle Childs des ersten Eintrags retour.
Stephan
[EMAIL PROTECTED] schrieb:
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:
Framework.net@glengamoi.com
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/framework.net

_______________________________________________
Framework.net Mailingliste, Postings senden an:
Framework.net@glengamoi.com
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/framework.net