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
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:
VB.NET-Quellcode
- 'für jeden FA eine Gruppe anlegen
- Dim gruppenname As String = (reader("fa92"))
- Dim gruppe As ListViewGroup = New ListViewGroup(gruppenname, HorizontalAlignment.Left)
- 'falls es Gruppe noch nicht gibt diese neu anlegen und dort den Eintrag machen
- If EintragVorhanden(gruppenname) = False Then
- lv_t92.Groups.Add(gruppe)
- Dim Item As ListViewItem = New ListViewItem
- Item.Text = (reader("ronr"))
- Item.Group = gruppe
- lv_t92.Items.Add(Item)
- 'falls es die Gruppe schon gibt dann nur den Eintrag in die Gruppe machen
- ElseIf EintragVorhanden(gruppenname) = True Then
- Dim Item As ListViewItem = New ListViewItem
- Item.Text = (reader("ronr"))
- Item.Group = gruppe
- lv_t92.Items.Add(Item)
- End If
- 'Spaltenbreite anpassen
- lv_t92.Columns(0).Width = 90
- End If
- Loop
- 'Verbindung schließen
- lbl_status.Text = "Abfrage erfolgreich beendet"
- reader.Close()
- con.Close()
- 'Anzahl Datensätze ausgeben
- Dim anzahl As String = lv_titem.Items.Count
- lbl_status.Text = anzahl & " Datensätze gefunden"
- Catch ex As Exception
- MsgBox(ex.Message)
- lbl_status.Text = "Abfrage abgebrochen"
- Finally
- con.Close()
- End Try
- End Sub
- Function EintragVorhanden(ByVal eintrag As String) As Boolean
- Dim i As ListViewGroup
- EintragVorhanden = False
- For Each i In lv_t92.Groups
- MessageBox.Show("Name der aktuellen Vergleichsgruppe ist: " & i.Name)
- If i.Name = eintrag Then
- EintragVorhanden = True
- Exit For
- End If
- Next
- End Function
==> seid .net zueinander <==