Listview Gruppen auf Vorhandensein prüfen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von Axxxxxl.

    Listview Gruppen auf Vorhandensein prüfen

    Hallo,

    ich lade mir durch eine DB-Abfrage per Schleife mehrere Einträge. Einer davon soll als Name der Gruppe dienen, welche ich dazu in einem ListView anlege. Das klappt auch wunderbar.
    Hat nun bspw. der 2. Eintrag den gleichen Wert wie der 1. dann würde eine neue Gruppe im Listview entstehen, was ich natürlich nicht möchte. Aus diesem Grund habe ich noch eine Funktion aus dem Inet eingebaut, die das Vorhandensein der Gruppe prüfen soll. Anbei mein Code dazu. Leider funktioniert das nicht, da er trotzdem auch für gleichlautende Werte jeweils eine neue Gruppe anlegt?!

    Könnt ihr mir da helfen?!

    hier der Auszug aus dem Programm:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. 'für jeden FA eine Gruppe anlegen
    2. Dim gruppenname As String = (reader("fa92"))
    3. Dim gruppe As ListViewGroup = New ListViewGroup(gruppenname, HorizontalAlignment.Left)
    5. 'falls es Gruppe noch nicht gibt diese neu anlegen und dort den Eintrag machen
    6. If EintragVorhanden(gruppenname) = False Then
    7. lv_t92.Groups.Add(gruppe)
    9. Dim Item As ListViewItem = New ListViewItem
    10. Item.Text = (reader("ronr"))
    11. Item.Group = gruppe
    12. lv_t92.Items.Add(Item)
    14. 'falls es die Gruppe schon gibt dann nur den Eintrag in die Gruppe machen
    15. ElseIf EintragVorhanden(gruppenname) = True Then
    16. Dim Item As ListViewItem = New ListViewItem
    17. Item.Text = (reader("ronr"))
    18. Item.Group = gruppe
    19. lv_t92.Items.Add(Item)
    21. End If
    23. 'Spaltenbreite anpassen
    24. lv_t92.Columns(0).Width = 90
    26. End If
    28. Loop
    30. 'Verbindung schließen
    31. lbl_status.Text = "Abfrage erfolgreich beendet"
    32. reader.Close()
    33. con.Close()
    35. 'Anzahl Datensätze ausgeben
    36. Dim anzahl As String = lv_titem.Items.Count
    37. lbl_status.Text = anzahl & " Datensätze gefunden"
    39. Catch ex As Exception
    41. MsgBox(ex.Message)
    42. lbl_status.Text = "Abfrage abgebrochen"
    44. Finally
    45. con.Close()
    46. End Try
    47. End Sub
    49. Function EintragVorhanden(ByVal eintrag As String) As Boolean
    50. Dim i As ListViewGroup
    51. EintragVorhanden = False
    52. For Each i In lv_t92.Groups
    53. MessageBox.Show("Name der aktuellen Vergleichsgruppe ist: " & i.Name)
    54. If i.Name = eintrag Then
    55. EintragVorhanden = True
    56. Exit For
    57. End If
    58. Next
    59. End Function
    ==> seid .net zueinander :D <3 <==

    Kommt denn in deiner Function EintragVorhanden(gruppenname) ein Wert (True/False) zurück? Gibt es einen speziellen Grund, warum deine Function keinen Rückgabewert (z.B. "Return True) hat? Auf die schnelle würde ich hier das Problem vermuten. Hab's aber nicht explizit getestet...
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Das ist auch meine Vermutung, dass die Prüfung auf vorhandene Gruppen in der Funktion nicht klappt?! Ich weiß halt nicht, ob das mit "lv_t92.Groups" überhaupt der richtige Weg ist um die vorhandenen Gruppen in einem Listview zu prüfen bzw. ob "i.Name" der richtige Befehl ist. Laut Hilfe in VB Studio soll der aber die Namen der Gruppen ausspucken?!

    VB.NET-Quellcode

    1. Function EintragVorhanden(ByVal eintrag As String) As Boolean
    2. Dim i As ListViewGroup
    3. Return False
    4. For Each i In lv_t92.Groups
    5. If i.Name = eintrag Then
    6. Return True
    7. Exit For
    9. Else
    10. Return False
    11. End If
    12. Next
    13. End Function


    Vielleicht hat noch jemand nen Hinweis?!
    ==> seid .net zueinander :D <3 <==

    sorry, aber ein kleines Problem gibt es scheinbar noch:
    - wenn eine Gruppe noch nicht vorhanden ist, wird diese auch angelegt und das item darin gespeichert
    - gehört das nächste item der Abfrage allerdings auch zur gleichen, nun schon vorhandenen Gruppe, wird es trotzdem unter dem Gruppenname "default" hinterlegt
    - ein weiteres item, welches einer neuen Gruppe angehört wander aber wiederum orderntlich in die neu benannten Gruppe

    Summa summarum werden also jeweils nur die Folge-Items einer schon vorhandenen Gruppe nicht dort abgelegt sondern in "default" ?!?!

    Hier nochmal der verantwortliche Code:

    VB.NET-Quellcode

    1. ElseIf modus = "t92" Then
    3. 'jede Druckrolle wird unter den zugehörigen FA gruppiert
    4. Dim gruppenname As String = Mid((reader("fa92")), 6, 5)
    5. Dim gruppe As ListViewGroup = New ListViewGroup(gruppenname, HorizontalAlignment.Left)
    6. Dim Item As ListViewItem = New ListViewItem
    8. 'falls es die Gruppe schon gibt dann nur den Eintrag in die Gruppe machen
    9. If gruppencheck(gruppenname) = True Then
    10. 'MessageBox.Show("Item wird in vorhandene Gruppe " & gruppe.ToString & " angelegt")
    12. Item.Text = (reader("ronr"))
    13. Item.Group = gruppe
    14. lv_t92.Items.Add(Item)
    16. 'falls es Gruppe noch nicht gibt diese neu anlegen und dort den Eintrag machen
    17. ElseIf gruppencheck(gruppenname) = False Then
    18. lv_t92.Groups.Add(gruppe)
    19. Item.Text = (reader("ronr"))
    20. Item.Group = gruppe
    21. 'MessageBox.Show("Gruppe ist: " & gruppe.ToString)
    22. lv_t92.Items.Add(Item)
    24. End If
    25. End If
    27. 'nächsten Eintrag aus DB lesen
    28. Loop
    ==> seid .net zueinander :D <3 <==

    Ich habe es jetzt so:

    VB.NET-Quellcode

    1. 'falls es die Gruppe schon gibt dann nur den Eintrag in die Gruppe machen
    2. If gruppencheck(gruppenname) = True Then
    3. Item.Text = (reader("ronr"))
    4. Item.Group = lv_t92.Groups(gruppenname)
    5. lv_t92.Items.Add(Item)


    Leider fliegen die Folge-Items immer noch in Default !?! :/
    ==> seid .net zueinander :D <3 <==

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

    Hat mir nichts brauchbares ausgeworfen.
    Hier noch mal der aktuelle Quelltext. Vielleicht einfach mal bei euch in ein Testprojekt kopieren und teste. Die Variablen für die items können ja irgendwelche sein.
    Danke für die Geduld :rolleyes:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. 'jede Druckrolle wird unter den zugehörigen FA gruppiert
    2. Dim gruppenname As String = Mid((reader("fa92")), 6, 5)
    3. Dim rollennnummer As String = reader("ronr")
    4. Dim gruppe As ListViewGroup = New ListViewGroup(gruppenname, HorizontalAlignment.Left)
    5. Dim item As ListViewItem = New ListViewItem
    7. 'falls es Gruppe noch nicht gibt diese neu anlegen und dort den Eintrag machen
    8. If gruppencheck(gruppenname) = False Then
    9. lv_t92.Groups.Add(gruppe)
    10. MessageBox.Show("Gruppe " & gruppenname & " fehlte! Nun Eintrag machen")
    11. item.Text = rollennnummer
    12. item.Group = gruppe
    13. lv_t92.Items.Add(item)
    15. 'falls es die Gruppe schon gibt dann nur den Eintrag in die Gruppe machen
    16. ElseIf gruppencheck(gruppenname) = True Then
    17. MessageBox.Show("Gruppe " & gruppenname & " existiert, nur Eintrag machen")
    18. item.Text = rollennnummer
    19. item.Group = gruppe
    20. lv_t92.Items.Add(item)
    21. End If
    23. Function gruppencheck(ByVal eintrag As String) As Boolean
    24. Dim i As ListViewGroup
    25. For Each i In lv_t92.Groups
    26. If i.Header = eintrag Then
    27. Return True
    28. Else : Return False
    29. End If
    30. Next
    32. Return False
    33. End Function

    ==> seid .net zueinander :D <3 <==

    Moin allerseits ;)

    Wald und Bäume ?( :S ...
    ich deklariere nun testweise für den Fall, dass es die Gruppe schon gibt eine weitere Variable:

    VB.NET-Quellcode

    1. Dim gruppe_vorhanden As ListViewGroup = lv_t92.Groups(gruppenname)

    und weise die dann dem Item beim Eintragen ins Listview per

    VB.NET-Quellcode

    1. item.Group = gruppe_vorhanden
    zu.
    Ergebnis wie gehabt. Anhand der Messagbox weiß ich zwar, dass er erkennt, dass es die Gruppe XY schon im Control gibt, aber dann gehe ich doch auch davon aus, dass wenn er sie bei der Prüfung "sieht" auch ein item dort reinschreiben kann?! ;(

    Hier die Bilder beim Haltepunkt, einmal bei neuem Item und einmal bei Item einer vorhandenen Gruppe. Meiner Ansicht nach ist doch dort die Gruppen-Variable jedesmal mit dem richtigen Wert gefüllt?!
    Bilder

    • vb_item_folge_item.png

      12,27 kB, 685×222, 70 mal angesehen

    • vb_item_neu.png

      12,76 kB, 700×221, 72 mal angesehen
    ==> seid .net zueinander :D <3 <==

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

    erledigt

    So, nachdem ich in ungeahnte Google-Tiefen vorgedrungen bin, hier nun die Lösung die funktioniert (und sogar noch jede Menge Codezeilen gespart hat :) :(

    VB.NET-Quellcode

    1. 'jede Druckrolle wird unter den zugehörigen FA gruppiert
    2. Dim gruppenname As String = Mid((reader("fa92")), 6, 5)
    3. Dim rollennummer As String = (reader("ronr"))
    4. 'falls es Gruppe noch nicht gibt diese neu anlegen
    5. If gruppencheck(gruppenname) = False Then
    6. lv_t92.Groups.Add(New ListViewGroup(gruppenname, gruppenname))
    7. End If
    9. 'Eintrag in der Gruppe machen
    10. lv_t92.Items.Add(New ListViewItem(rollennummer, 0, lv_t92.Groups(gruppenname)))
    12. End If


    Danke an Fakiz für seine Denkanstöße :thumbsup: :thumbup:
    ==> seid .net zueinander :D <3 <==

Facebook
Telefonspende