DGV Cell Ausgabe in TextBox

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von guccini.

    DGV Cell Ausgabe in TextBox

    Hi zusammen , habe folgendes Problem: Versuche eine Zeile aus Datagridview zu ermitteln,, sobald in den 32 spalte eine 1, 2 oder nicht drin steht soll die Erste Spalte in Textbox1 angezeigt werden. was mache ich falsch?

    VB.NET-Quellcode

    1. Public Sub test()
    3. For x As Integer = 2 To 32
    5. If DataGridView1.Rows(0).Cells(x).Value.ToString().Contains("1") Then
    6. TextBox1.Text = DataGridView1.Rows(0).Cells(1).Value
    7. TextBox1.ForeColor = Color.White
    8. TextBox1.BackColor = Color.Red
    10. ElseIf DataGridView1.Rows(0).Cells(x).Value.ToString().Contains("2") Then
    11. TextBox1.Text = DataGridView1.Rows(0).Cells(1).Value
    12. TextBox1.ForeColor = Color.White
    13. TextBox1.BackColor = Color.Red
    15. ElseIf DataGridView1.Rows(0).Cells(x).Value.ToString = String.Empty Then
    16. TextBox1.Text = DataGridView1.Rows(0).Cells(1).Value
    17. TextBox1.ForeColor = Color.Black
    18. TextBox1.BackColor = Color.White
    20. End If
    21. Next
    22. End Sub

    Hallo guccini!

    So klappts:

    VB.NET-Quellcode

    1. For x As Integer = 2 To 32
    2. If DataGridView1.Rows(0).Cells(x).Value Is Nothing Then
    3. TextBox1.Text = DataGridView1.Rows(0).Cells(1).Value.ToString
    4. TextBox1.ForeColor = Color.Black
    5. TextBox1.BackColor = Color.White
    6. Exit For
    7. Else
    8. If DataGridView1.Rows(0).Cells(x).Value.ToString.Contains("1") Then
    9. TextBox1.Text = DataGridView1.Rows(0).Cells(1).Value.ToString
    10. TextBox1.ForeColor = Color.White
    11. TextBox1.BackColor = Color.Red
    12. Exit For
    13. ElseIf DataGridView1.Rows(0).Cells(x).Value.tostring.Contains("2") Then
    14. TextBox1.Text = DataGridView1.Rows(0).Cells(1).Value.ToString
    15. TextBox1.ForeColor = Color.White
    16. TextBox1.BackColor = Color.Red
    17. Exit For
    18. End If
    19. End If
    20. Next


    Wenn du die Zellen durchläufst und nach dem Value fragst, obwohl da nichts drin steht, wird dies einen Fehler produzieren. Deshalb frag zuerst nach leeren Zellen (Value is nothing) und erst wenn das nicht der Fall ist, überprüfe, ob der Wert eine 1 oder eine 2 ist.

    Viele Grüße

    LaBuNi
    Alle sagten: Das geht nicht. Dann kam einer, der wusste das nicht und hat's gemacht.

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

    VB1963 schrieb:

    Wird da von dazengebundenen DGV's geredet?


    Ist nicht Datengebunden
    danke labuni hab noch das hinzugefügt ,sonst bleibt die textbox komplett leer

    VB.NET-Quellcode

    1. Public Sub test()
    2. Me.DataGridView1.Refresh()
    3. For x As Integer = 2 To 32
    4. TextBox1.Text = DataGridView1.Rows(0).Cells(1).Value.ToString
    5. TextBox1.ForeColor = Color.Black
    6. TextBox1.BackColor = Color.White
    8. If DataGridView1.Rows(0).Cells(x).Value Is Nothing Then
    9. TextBox1.Text = DataGridView1.Rows(0).Cells(1).Value.ToString
    10. TextBox1.ForeColor = Color.Black
    11. TextBox1.BackColor = Color.White
    12. Exit For
    13. Else
    14. If DataGridView1.Rows(0).Cells(x).Value.ToString.Contains("1") Then
    15. TextBox1.Text = DataGridView1.Rows(0).Cells(1).Value.ToString
    16. TextBox1.ForeColor = Color.White
    17. TextBox1.BackColor = Color.Red
    18. Exit For
    19. ElseIf DataGridView1.Rows(0).Cells(x).Value.ToString.Contains("2") Then
    20. TextBox1.Text = DataGridView1.Rows(0).Cells(1).Value.ToString
    21. TextBox1.ForeColor = Color.White
    22. TextBox1.BackColor = Color.Red
    23. Exit For
    24. End If
    25. End If
    26. Next
    27. End Sub

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

    Hallo guccini!

    Ok, ich dachte die Textbox sollte nur reagieren, falls eine Zelle leer oder den Wert 1 oder 2 hat.

    Eine kleine Anmerkung habe ich noch zu Deinem neuen Code


    VB.NET-Quellcode

    1. Public Sub test()
    2. Me.DataGridView1.Refresh()
    4. TextBox1.Text = DataGridView1.Rows(0).Cells(1).Value.ToString
    5. TextBox1.ForeColor = Color.Black
    6. TextBox1.BackColor = Color.White
    8. For x As Integer = 2 To 32
    9. If DataGridView1.Rows(0).Cells(x).Value Is Nothing Then
    10. TextBox1.Text = DataGridView1.Rows(0).Cells(1).Value.ToString
    11. TextBox1.ForeColor = Color.Black
    12. TextBox1.BackColor = Color.White
    13. Exit For
    14. Else
    15. If DataGridView1.Rows(0).Cells(x).Value.ToString.Contains("1") Then
    16. TextBox1.Text = DataGridView1.Rows(0).Cells(1).Value.ToString
    17. TextBox1.ForeColor = Color.White
    18. TextBox1.BackColor = Color.Red
    19. Exit For
    20. ElseIf DataGridView1.Rows(0).Cells(x).Value.ToString.Contains("2") Then
    21. TextBox1.Text = DataGridView1.Rows(0).Cells(1).Value.ToString
    22. TextBox1.ForeColor = Color.White
    23. TextBox1.BackColor = Color.Red
    24. Exit For
    25. End If
    26. End If
    27. Next
    28. End Sub


    Die drei Zeilen sollten besser außerhalb der Schleife stehen, sonst werden sie unnötigerweise bei jedem Durchlauf (bis zu 30 mal) immer wieder neu ausgeführt, ohne dass etwas anderes dabei herauskommen könnte.

    Viele Grüße

    LaBuNi
    Alle sagten: Das geht nicht. Dann kam einer, der wusste das nicht und hat's gemacht.