Sortieren von TreeView funktioniert nur einmal

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Yunkie.

    Sortieren von TreeView funktioniert nur einmal

    Moin zusammen,

    ich habe ein Problem mit meiner TreeView. Ich verwende die Methode .Sort() zum sortieren der TreeView. Das funktioniert genau einmal korrekt (beim Programmaufruf). Das Sortieren findet in einer Funktion statt und ich mache nichts anderes als die Funktion erneut aufzurufen. Danach stimmen jedoch die TreeView.Nodes.Name Attribute nicht mehr. Warum?

    Ich komm nicht dahinter, warum es beim erstmaligen Sortieren funktioniert und bei darauf folgenden Sortiervorgängen nicht!

    Ich könnte verstehen wenn es an dem Sortier-Algorithmus liegt. Warum dann aber nicht beim ersten mal?

    Kurz noch eine Erläuterung was der nachfolgende Code tun soll.
    Diese Funktion soll ein TreeView Von Mitarbeitern und Firmen zur Verfügung stellen:


    Personalverwaltung
    Firma
    Mitarbeiter(A)
    Mitarbeiter(B)
    Mitarbeiter(C)
    Firma
    Mitarbeiter(A)
    Mitarbeiter(B)
    Mitarbeiter(C)

    Wie gesagt, es funktioniert einmalig. Wenn ich die Funktion erneut aufrufe führe ich vorher ein TreeView.Clear() aus. Kann es sein, das die Nodes nicht wirklich gelöscht werden? Gibt es andere Möglichkeiten das TreeView "sauber" zu bekommen um es letztendlich neu befüllen zu können?

    Kann vielleicht mal jemand drüber gucken? :-S Bitte achtet nicht auf die Namenswahl der Variablen ;)

    VB.NET-Quellcode

    1. Public Function GetMitarbeiterTreeView(ByRef TreeView As TreeView, Optional ByRef StatusBar As ProgressBar = Nothing, Optional ByRef ToolStripProgressBar As ToolStripProgressBar = Nothing, Optional ByVal Inaktive As Boolean = False) As Boolean
    2. Dim UIDs As List(Of Integer) = GetUIDFromRohdaten(Inaktive)
    3. Dim Var As String = Nothing
    4. Dim Merker As Boolean = False
    5. Dim I As Integer = 0
    7. If StatusBar IsNot Nothing Then
    8. StatusBar.Maximum = UIDs.Count
    9. StatusBar.Value = 0
    10. ElseIf ToolStripProgressBar IsNot Nothing Then
    11. ToolStripProgressBar.Maximum = UIDs.Count
    12. ToolStripProgressBar.Value = 0
    13. End If
    15. For Each ResultUID In UIDs
    16. Dim MAXAzAcGUID = Aggregate Result In db.PAAzAc Where Result.Rohdaten.PAInternUID = ResultUID Into Max(Result.AzAcGUID)
    17. Dim Firma = From Result In db.PAAzAc _
    18. Where Result.AzAcGUID = MAXAzAcGUID _
    19. Select Result.AzAcFirm
    21. For Each Result In Firma
    22. Var = Result
    23. Next
    25. If TreeView.Nodes(0).Nodes.Count > 0 Then
    26. For Each Node In TreeView.Nodes(0).Nodes
    27. If Var = Node.text Then
    28. Merker = True
    29. End If
    30. Next
    32. If Merker = False Then
    33. TreeView.Nodes(0).Nodes.Add(Var)
    34. TreeView.Nodes(0).LastNode.Name = Var
    35. Else
    36. Merker = False
    37. End If
    38. Else
    39. TreeView.Nodes(0).Nodes.Add(Var)
    40. TreeView.Nodes(0).LastNode.Name = Var
    41. End If
    44. For Each Node In TreeView.Nodes(0).Nodes
    45. If Var = Node.text Then
    46. Dim Mitarbeiter = From Result In db.Rohdaten
    47. Where Result.PAInternUID = ResultUID
    48. Select Result.PANam & ", " & Result.PAVNam
    50. For Each MA In Mitarbeiter
    51. TreeView.Nodes(0).Nodes(I).Nodes.Add(MA)
    52. TreeView.Nodes(0).Nodes(I).LastNode.Name = ResultUID
    53. If IsMitarbeiterAktiv(ResultUID) = True Then
    54. TreeView.Nodes(0).Nodes(I).LastNode.ForeColor = Color.Green
    55. ElseIf IsMitarbeiterAktiv(ResultUID) = False Then
    56. TreeView.Nodes(0).Nodes(I).LastNode.ForeColor = Color.Red
    57. End If
    58. Next
    60. I = 0
    62. Exit For
    63. End If
    64. I = I + 1
    65. Next
    67. If StatusBar IsNot Nothing Then
    68. StatusBar.Value = StatusBar.Value + 1
    69. ElseIf ToolStripProgressBar IsNot Nothing Then
    70. ToolStripProgressBar.Value = ToolStripProgressBar.Value + 1
    71. End If
    73. Next
    75. 'TreeView.Nodes(0).TreeView.Sort()
    76. TreeView.Sort()
    78. Return True
    80. End Function


    Vielen Dank an alle im Voraus! :D

    Gruß,
    Hendrik
    Der Vorteil der Intelligenz besteht darin, sich dumm stellen zu können. Das Gegenteil davon ist schon schwieriger.

    Hi,

    wurde gelöst!

    Option Strict on - Hats behoben... Danke!

    Wen es interessiert - Es lag daran, das ein Integer als String gebunden wurde. Option Strict on hats richtig gestellt und schon liefs ;)

    Gruß,
    Hendrik
    Der Vorteil der Intelligenz besteht darin, sich dumm stellen zu können. Das Gegenteil davon ist schon schwieriger.