TreeView füll algorithmus mithilfe von parentid

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von win98.

    TreeView füll algorithmus mithilfe von parentid

    Hallo.

    ich habe bis jetzt folgenden code:

    VB.NET-Quellcode

    1. Private Sub btnPlanIds_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlanIds.Click
    3. Dim trdum As New TreeView
    4. Dim v0 As Integer = 2
    6. xliApp = CreateObject("EXCEL.APPLICATION")
    7. xliWB = xliApp.Workbooks.Open(Pfad_i)
    9. With trdum
    10. .Dock = DockStyle.Fill
    12. Do
    13. If xliWB.Sheets("pro_node").Cells(v0, 3).Text = "0" Then
    14. .Nodes.Insert(0, xliWB.Sheets("pro_node").Cells(v0, 2).Text)
    16. With .Nodes(0)
    17. 'usw usw usw
    18. 'HILFE :P
    19. End With
    21. End If
    22. v0 = v0 + 1
    23. Loop Until xliWB.Sheets("pro_node").Cells(v0, 2).Text = ""
    25. End With
    26. Panel1.Controls.Add(trdum)
    28. xliWB.Close()
    29. xliWB = Nothing
    30. xliApp = Nothing
    32. End Sub


    im großen und ganzen ist lese ich aus einer excel tabelle werte aus. die excel hab ich mal im anhang hochgeladen.

    darin sind informationen zu einem treeview enthalten. d.h. jedes element hat einmal eine eigene ID und einmal eine parent ID dem es untergeordnet ist.

    ich hab bis jetzt die elemente mit parentID 0 ausgelesen, weil das das höchste element ist und habe den knoten erstellt.

    jetzt möchte ich alle unterknoten mit parentID 1 hinzufügen, und so weiter. wie die treeview aussehen soll ist auch im anhang zu sehen.

    soe wie ich den code angefangen habe müsste das theoretisch klappen, wenn ich so viele schleifen wie ebenen erstelle. ich möchte den code aber dynamisch haben, d.h. der code soll auch funktionieren wenn ich 2, 3, 6, 70, 210, oder 10000 ebenen haben.

    weiß jemand rat, oder ein tipp?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „win98“ ()

    Hi

    so könnte man es ungefährt machen:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. Dim trdum As New TreeView
    3. Dim v0 As Integer = 2
    5. Dim xliApp = CreateObject("EXCEL.APPLICATION")
    6. Dim xliWB = xliApp.Workbooks.Open(pfad_i)
    8. With trdum
    9. .Dock = DockStyle.Fill
    11. Do
    13. Dim NewNode As TreeNode = New TreeNode
    14. NewNode.Text = xliWB.Sheets("pro_node").Cells(v0, 2).value
    15. NewNode.Name = xliWB.Sheets("pro_node").Cells(v0, 1).value
    16. Dim ind As Integer = CInt(xliWB.Sheets("pro_node").Cells(v0, 3).value)
    18. If ind > 0 Then
    19. Dim nodes As TreeNodeCollection = trdum.Nodes
    20. Dim n As TreeNode
    21. For Each n In nodes
    22. If n.Name = ind.ToString Then
    23. n.Nodes.Add(NewNode)
    24. Exit For
    26. End If
    27. If findParent(n, ind.ToString, NewNode) Then
    28. Exit For
    29. End If
    30. Next
    31. Else
    32. trdum.Nodes.Add(NewNode)
    33. End If
    35. v0 = v0 + 1
    36. Loop Until xliWB.Sheets("pro_node").Cells(v0, 1).Text = ""
    38. End With
    39. Panel1.Controls.Add(trdum)
    41. xliWB.Close()
    42. xliWB = Nothing
    43. xliApp = Nothing
    45. End Sub
    46. Private Function findParent(ByVal RecNode As TreeNode, ByVal ParentName As String, ByVal NewNode As TreeNode)
    48. Dim tn As TreeNode
    49. For Each tn In RecNode.Nodes
    50. If tn.Name = ParentName Then
    51. tn.Nodes.Add(newnode)
    52. Return True
    53. End If
    54. findParent(tn, ParentName, NewNode)
    55. Next
    56. Return False
    57. End Function


    Das ist nur ein Beispiel, man sucht einfach Rekursiv nach dem Parent, und diesem fügt man dann einen neuen Node hinzu.
    Eventuell als Anregung hilfreich..

    gruss Mono
    Das ist meine Signatur und sie wird wunderbar sein!

    wow, hammer,

    einer rekursive methode hatte ich auch schon versucht, aber kann mit diesen "node" befehlen nicht klar.

    wie lang hasten dafür gebraucht :P

    da is zwar noch ein kleiner fehler drinne (br3x unter regelschemeata fehlt brenner31) aber ich versuch das mal mithilfe deines codes umzuändern.

    vielen dank
    Bilder

    • Zwischenablage01.jpg

      11,21 kB, 270×243, 96 mal angesehen

    Ja das liegt sicher daran, das die Tabelle von oben nach unten durchlaufen wird.
    Wenn ein Parent Node angegeben ist, der noch nicht existiert, wird kein Child Node hinzugefügt.
    Und Brenner hat als Parent die 9.
    Diese wird aber erst im nächsten Schritt angelegt..

    Entweder du achtest drauf das du die Tabelle in richtiger Reihenfolge schreibst, oder du musst die Childnodes, deren Parent er nicht finden konnte speichern und am Ende noch mal suchen


    gruss Mono
    Das ist meine Signatur und sie wird wunderbar sein!

    cool, hab jetzt die spalte der parentID aufsteigend geordnet und es gong einwandfrei.

    allerdings manuell...
    per vba makro hab ich diesen code:

    VB.NET-Quellcode

    1. Cells.Select
    2. Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:= _
    3. xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    4. DataOption1:=xlSortNormal


    wie übersetz ich den code in VB?

    vielen dank für den hinweis :)

Facebook
Telefonspende