Arbeiten und Auslesen einer Combobox mit mehr als einem Item

LizardProgrammer · 26. Juli 2018, 14:39

Hallo

hier mein Problem:
Ich habe eine Combobox, in der mehrere Werte/Items stehen können. Wenn ich ein Item dieser Liste auswähle soll ein Ereignis starten. Der gewählte Wert soll auf einen String geschrieben werden und damit
soll eine DataGridView durchlaufen/durchsucht/gefiltert werden. Solange ein Wert in der Combobox steht läuft alles wie es soll. Stehen aber mehr als ein item in dr Combobox, dann zeigt mir Visual Studio einen Index-Fehler an. Kann mir jemand helfen bei dem Problem? Hab bereits einiges probiert und weiß nicht mehr weiter. Da die Indizes der dgv in der if-bedingung korrekt sind (mehrmals geprüft

) nehme ich an, dass der Fehler was mit der Auswahl des Items der Combobox sein muss oder ähnlichen.

Hier ein Teil meines Codes:

VB.NET-Quellcode

Private Sub cb_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cb.SelectionChangeCommitted
Dim cb as String
cb = cb.selected item
for i = 0 to dgv.rows.count - 1
if cb = dgv.rows.item(i).cells.item(3) then
'...
End if
next
End Sub

Verschoben. ~Thunderbolt

ThomasM · 26. Juli 2018, 15:05

VB.NET-Quellcode

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
If Not ComboBox1.SelectedItem Is Nothing And Not ComboBox1.Items.Count < 1 Then
'Tu was mit ComboBox1.SelectedValue.ToString
'Tu was mit ComboBox1.SelectedValue
'Tu was mit ComboBox1.SelectedItem
'Tu was mit ComboBox1.SelectedItem.ToString()
End If
End Sub

Wenn du mit einer BindingSource arbeitest kannst du z.B. MyBindingSource.Filter = $"Name = like '%{combobox1.selectedvalue.tostring}%'" sowas hier machen zum Filtern.

LizardProgrammer · 26. Juli 2018, 15:23

Danke für deine Antwort

Ich habe aber gleich mal eine Gegenfrage:
1. Kann ich für mein Problem nicht mit Private Sub Combobox_SelectionChangeComitted arbeiten? Und wenn nicht, wann verwende ich es dann?
2. Kann ich nicht mit den items selbst, also den Strings arbeiten? Muss ich mit den Indizes arbeiten?
3. Falls du meinen Fehler verstanden hast bzw. kennst, kannst du mir sagen wo das Problem liegt?

Vollzitat entfernt. ~Thunderbolt

ErfinderDesRades · 26. Juli 2018, 18:05

LizardProgrammer schrieb:

Stehen aber mehr als ein item in dr Combobox, dann zeigt mir Visual Studio einen Index-Fehler an.

Fehlerzeile? Fehlermeldung?

Exceptions, und was sie uns sagen wollen

petaod · 26. Juli 2018, 18:19

LizardProgrammer schrieb:

If Not ComboBox1.SelectedItem Is Nothing And Not ComboBox1.Items.Count < 1 Then

ist eine komische Konstruktion.

VB.NET-Quellcode

If ComboBox1.Items.Count > 0 AndAlso ComboBox1.SelectedItem IsNot Nothing Then

Hat zwar wahrscheinlich nichts mit deinem Problem zu tun, aber ist sauberer.

VaporiZed · 26. Juli 2018, 23:30

Der Code ist nicht mit Option Strict On versehen.
Der Code ist nicht aus dem Projekt, da

VB.NET-Quellcode

Dim cb as String
cb = cb.selected item

bei = cb.selected item syntaktisch falsch ist und cb nicht doppelt verwendet werden kann, und zwar 1x als ComboBox-Name und als String; die Stringvariable würde die ComboBox-Instanz überdecken.
Sobald man diese Fehler beseitigt hat, dafür sorgt, dass das DGV genügend Spalten hat (> 3) und das manuelle Hinzufügen von neuen Zeilen deaktiviert ist (sonst crasht es bei Zeile#4), sollte der Code laufen. Zumindest läuft er bei mir.

LizardProgrammer · 27. Juli 2018, 10:55

Also ich hab da jetzt was umgestellt:

VB.NET-Quellcode

Private Sub cb_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cb.SelectionChangeCommitted
Dim bsp as String
bsp = cb.selecteditem
Dim index as integer = 0
for i = 0 to dgv.rows.count - 2
Dim bspaktuell as String
bspaktuell = dgv.rows.item(i).cells.item(3).value
if bsp = bspaktuell then
dgv2.rows.ad()
dgv2.rows(index).cells.item(0).value = dgv.rows.item(i).cells.item(1).value 'Hier wird ein Index-Fehler angezeigt
'...
index += 1
End if
next
End Sub

Ich kann den Fehler nicht nachvollziehen. Also es funktioniert, wenn ich dgv2.rows.add() aus der if-bedingung rausziehe. Allerdings habe ich dann in dgv2 mehrere leere Zeilen. Das würde ich gerne umgehen. Kann mir jemand sagen, wo der Fehler liegt?

VaporiZed · 27. Juli 2018, 15:38

Es wäre vorteilhaft, Deinen tatsächlichen Code zu zeigen, denn Zeile#10 mit dgv.rows.item(i).cells.item(1).value ist wieder syntaktisch falsch und somit nicht kompilierbar.
Auch ein Screenshot der Fehlermeldung wäre hilfreich, da die schon sehr genau sagt, wo das Problem liegt. Ist das Problem bei i? index? .item(0)? .item(1)? .value?
Denn am Ende kommt raus, dass irgendwo eine Kleinigkeit, die im Originalcode drinsteht, hier nicht gepostet wurde und wir etwas suchen, was nicht vorhanden ist.

Hier im Forum wird so viel Code gepostet, die Angst, dass da was geklaut wird, tendiert gegen Null. Bedenke auch, dass viele, die hier antworten, ein paar mehr Posts haben und so es sehr wahrscheinlich ist, dass viel Erfahrung dahintersteckt. Es ist zwar Spekulatius, aber ich tippe mal darauf, dass das Verhältnis Postcount zu selbstgeschriebenen Codezeilen bei 1:100 liegt. oder noch krasser. Somit dürfte das, was Du versuchst, schon alter Hut sein.

LizardProgrammer · 27. Juli 2018, 17:20

@VaporiZed Mir geht es nicht um das klauen von dem Code, sondern eher um den Inhalt, der mit Hilfe des Codes verarbeitet werden soll

Also hier mal mein Code zu dem Abschnitt wo es hakt (die Variablennamen und etc. habe ich umbenannt)

VB.NET-Quellcode

Private Sub cb_res_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cb_res.SelectionChangeCommitted
Dim res As String
res= cb_rsrc.SelectedItem 'Auslesen der gewählten Ressource aus der Combobox
Dim tt, source, hu, id As String
dgv_task.rows.clear() 'Löschen des vorherigen Tabelleleninhalts
dgv_task = mod_glob.ColTask(dgv_tast) 'Hinzufügen von Spalten & Überschriften
Dim row as Integer = 0
if rb_move.checked then
For i = 0 to dgv1.rows.count - 2
tt = dgv1.rows.item(i).cells.item(12).value 'Werte aus aktueller Zeile auslesen
source = dgv1.rows.item(i).cells.item(14).value 'Werte aus aktueller Zeile auslesen
hu = dgv1.rows.item(i).cells.item(16).value 'Werte aus aktueller Zeile auslesen
id = dgv1.rows.item(i).cells.item(18).value 'Werte aus aktueller Zeile auslesen
dgv_task.rows.add()
if res = source then
if tt = "MOVE" OR tt = "STOP" then
dgv_task.Rows.Item(Row).Cells.Item(0).Value = dgv1.Rows.Item(i).Cells.Item(0).Value 'Hier Kommt der Index Fehler.
dgv_task.Rows.Item(Row).Cells.Item(1).Value = dgv1.Rows.Item(i).Cells.Item(1).Value
dgv_task.Rows.Item(Row).Cells.Item(2).Value = "0"
dgv_task.Rows.Item(Row).Cells.Item(3).Value = "00"
dgv_task.Rows.Item(Row).Cells.Item(4).Value = dgv1.Rows.Item(i).Cells.Item(7).Value
dgv_task.Rows.Item(Row).Cells.Item(5).Value = dgv1.Rows.Item(i).Cells.Item(8).Value
dgv_task.Rows.Item(Row).Cells.Item(6).Value = dgv1.Rows.Item(i).Cells.Item(12).Value
dgv_task.Rows.Item(Row).Cells.Item(7).Value = dgv1.Rows.Item(i).Cells.Item(13).Value
dgv_task.Rows.Item(Row).Cells.Item(8).Value = dgv1.Rows.Item(i).Cells.Item(14).Value
dgv_task.Rows.Item(Row).Cells.Item(9).Value = dgv1.Rows.Item(i).Cells.Item(15).Value
dgv_task.Rows.Item(Row).Cells.Item(10).Value = dgv1.Rows.Item(i).Cells.Item(16).Value
dgv_task.Rows.Item(Row).Cells.Item(11).Value =dgv1.Rows.Item(i).Cells.Item(18).Value
if dgv1.rows.item(i+1).cells.item(12).value = "STOP" And hu = dgv1.rows.item(i+1).cells.item(16).value And id = dgv1.rows.item(i+1).cells.item(18).value then
dgv_task.rows.item(Row).Cells.item(2).value = dgv1.rows.item(i+1).cells.item(1).value
end if
end if
end if
row += 1
next
For each line in dgv_task.rows
if line.cells.item(2).value = "0" And line.cells.item(6).value = "STOP" then
dgv_task.rows.remove(line)
end if
next
end if
End Sub

Also wie gesagt, wenn ich nur ein Object/item in der Combobox zur Auswahl habe, dann funktioniert alles einwandfrei. Bei mehreren gibt es da allerdings ein Problem.
Dann zeigt es mir den Index Fehler in der oben markierten Zeile an. Der Index wäre außerhalb des Bereichs und dürfte nicht null oder negativ sein.

VaporiZed · 27. Juli 2018, 20:34

Dann spalte Zeile#17 mal in folgendes auf:

VB.NET-Quellcode

Dim Row = dgv_task.Rows.Item(Row)
Dim Cell = Row.Cells.Item(0)
Dim Value= Cell.Value
Dim Row2 = dgv1.Rows.Item(i)
Dim Cell2 = Row2.Cells.Item(0)
Dim Value2 = Cell2.Value

wo kommt jetzt der Fehler?

ErfinderDesRades · 27. Juli 2018, 21:33

(zeile #17)
Ich find den Code höchst verwirrend - iwie fahren mir da zuviele Dgvs drin rum (dgv_task, dgv_tast, dgv1).
Und der Index-Fehler mag sich daraus ergeben, dass dgv1 mehr Zeilen hat als dgv_Task:

VB.NET-Quellcode

[...]
dgv_task.rows.clear() 'Löschen des vorherigen Tabelleleninhalts
dgv_task = mod_glob.ColTask(dgv_tast) 'Hinzufügen von Spalten & Überschriften
[...]
Dim row As Integer = 0
For i = 0 To dgv1.rows.count - 2
[...]
If res = source Then
If tt = "MOVE" Or tt = "STOP" Then
dgv_task.Rows.Item(Row).Cells.Item(0).Value = dgv1.Rows.Item(i).Cells.Item(0).Value 'Hier Kommt der Index Fehler.
[...]
row += 1
Next

VaporiZed · 27. Juli 2018, 22:47

Ich glaube nicht, da dgv_task-Rows mit Row indiziert werden, während bei dgv1-Rows das mit i passiert. Und in Zeile#14 wird ja immer eine Zeile zu dgv_task hinzugefügt, bevor in Z#34 deren Index erhöht wird.
Allerdings fällt mir gerade auf, dass das Konstrukt in Z#29 mit dem i+1 auch nicht grad stabil aussieht. Alles sehr kompliziert.

LizardProgrammer · 27. Juli 2018, 23:29

ich weiß ist alles bisschen komplex und durcheinander. Ich weiß aber halt auch nicht, wie ich das einfacher bzw. übersichtlicher lösen kann.
und es gibt nur dgv1 und dgv_task

das dgv_tast war ein Tippfehler.

ErfinderDesRades · 27. Juli 2018, 23:53

LizardProgrammer schrieb:

das dgv_tast war ein Tippfehler.

hmpf!
Irgendwie ist mir, als hätte man dich nu schon mehrfach aufgefordert, deinen Code so zu zeigen, wie er wirklich ist.
Nicht abgetippt, nicht anonymisiert, nicht so ähnlichen Code, sondern genau den Code, der Probleme macht.

Copy & Paste ist Trumpf!

LizardProgrammer · 28. Juli 2018, 15:04

das ist ja mein code! nur die Variablen sind umbenannt.

Arbeiten und Auslesen einer Combobox mit mehr als einem Item

Arbeiten und Auslesen einer Combobox mit mehr als einem Item

VB.NET-Quellcode

VB.NET-Quellcode

LizardProgrammer schrieb:

LizardProgrammer schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

LizardProgrammer schrieb:

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben