Hallo Forum,
Ich kämpfe seit längerem mit einem Schleifen Problem.
Ich habe zwei DGV''s und suche über eine For Schleifen in DGV1 einen bestimmen String und in der zweiten suche ich auch nach einem bestimmten String. Wenn beide gefunden worden sind, soll der gefunden String von DGV1 an den gefunden DGV2 übergeben werden (immer eine ROW neben den gefunden String).Und danach soll im DGV1 weitergesucht werden und in DGV2 in die nächsten gefunden String übergeben werden.
Der Code Funktioniert, nur bleibt die Schleife immer in DGV1 beim ersten gefunden Wert stehen, Die Übergaben an DGV2 funktioniert problemlos.
Wo liegt mein Fehler ? Danke Vorab für eure Unterstützung
Ich kämpfe seit längerem mit einem Schleifen Problem.
Ich habe zwei DGV''s und suche über eine For Schleifen in DGV1 einen bestimmen String und in der zweiten suche ich auch nach einem bestimmten String. Wenn beide gefunden worden sind, soll der gefunden String von DGV1 an den gefunden DGV2 übergeben werden (immer eine ROW neben den gefunden String).Und danach soll im DGV1 weitergesucht werden und in DGV2 in die nächsten gefunden String übergeben werden.
Der Code Funktioniert, nur bleibt die Schleife immer in DGV1 beim ersten gefunden Wert stehen, Die Übergaben an DGV2 funktioniert problemlos.
Wo liegt mein Fehler ? Danke Vorab für eure Unterstützung
Quellcode
- Dim DGV1suchWert As String = "Wert"
- Dim DGV2suchWert As String = "Wert"
- Try
- For i As Integer = 0 To SKlistDGV.Rows.Count - 1
- If SKlistDGV.Rows(i).Cells(0).Value.ToString = DGV1suchWert Then
- For f As Integer = 0 To konfigDGV.RowCount - 1
- If konfigDGV.Rows(f).Cells(0).Value.ToString = DGV2suchWert Then
- konfigDGV.Rows(f).Cells(3).Value = SKlistDGV.Rows(i).Cells(1).Value.ToString
- End If
- Next
- End If
- Next
- Catch ex As Exception
- MsgBox("Fehler beim DGV suchen")
- End Try
- End Sub