DataGridView Cell abfrage

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

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Maffi.

    DataGridView Cell abfrage

    Moin Freunde, habe da ein kleines Problem und hoffe Ihr könnt mir helfen.
    Plan:
    Wenn ich eine Auflistung von meinem DataGridView habe, möchte ich gerne wissen, wie viele Cellen in allen columns in einer senkrechten spalte "gefüllt" sind oder "empty/Nothing" sind. Und dies möchte ich gerne zusammengezählt haben und wiedergeben können in einer MSG oder Label oder etc.
    Sry für die kack Quali Bild:

    Also sagen wir die 3 Felder Rust sind leer, nun möchte ich gerne wissen wie viele leer oder dementsprechend voll sind. das gezählt und wiedergegeben in den verschiedenen sachen.

    Ist dies möglich ? habe schon viel rumprobiert und gegoogelt und auch hier im Forum gesucht aber nicht das gefunden was mir weiterhelfen könnte.


    Dankeschööööön

    1. Bitte Bilder forenintern per [Erweiterte Antwort] hochladen.
    2. Gehe alle Zeilen per For-Schleife durch, schaue, ob die 3. Zelle der aktuellen Schleifen-Zeile leer ist und wenn ja, erhöhe eine mit 0 initialisierte Variable um 1. Am Ende den Wert der Variable anzeigen lassen. Basics. Woran scheitert es?

    btw: Sollten Deine Daten irgendwo anders herkommen, dann geh die Datenquelle durch.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    okay danke, nächster Fehler:

    Quellcode

    1. ​For i = 0 To DataGridView1.RowCount - 1
    2. Label9.Text = "0"
    3. If DataGridView1.Rows(i).Cells(2).Value Is Nothing Then
    4. Label9.Text = DataGridView1.RowCount.ToString '
    5. DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Red
    6. 'MessageBox.Show("Test" & DataGridView1.RowCount.ToString)
    7. End If
    8. Next

    Warum komm bei der abfrage wenn ich 2 Spalten erstelle wo in einer Zelle "nothing" ist und in der anderen nicht alles belegt = 2 raus und bei der selben abfrage nur 0 ?

    Die Frage ergibt inhaltlich für mich keinen Sinn. Der Inhalt lautet: Wenn Du den Code das 1. Mal ausführst, kommt Zwei raus und beim 2. Mal kommt Null raus.

    Der Code ergibt auch keinen Sinn. Bei jedem Schleifendurchgang setzt Du Dein Label9.Text auf "0" zurück. Das darf aber nur 1x geschehen, und zwar bevor die Schleife beginnt. Und außerdem lässt Du Dir in dem Label die Anzahl aller Zeilen im DGV angeben. Wozu? Ich dachte, dass es darum geht, die Anzahl der leeren Zeilen zu zählen und diese Zahl Am Ende, also nach der Schleife anzeigen zu lassen.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dann bitte umsetzen. Punkt für Punkt.
    1. Du setzt Dein Label9.Text auf "0" zurück, und zwar bevor die Schleife beginnt.
    2. Wenn eine leere Zeile erkannt wird (Post#3, Zeile#3; Dein Code), dann erhöhe eine vor der Schleife deklarierte und mit 0 initialisierte Integer-Variable um 1.
    3. Nach der Schleife zeige den Wert dieser Variable in Deinem Label9 an.
    Woran scheitert es?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.




    VB.NET-Quellcode

    1. Private Sub btnCount_Click(sender As Object, e As EventArgs) Handles btnCount.Click
    2. Dim cellNotStringEmpty As Integer = 0
    3. Dim cellIsStringEmpty As Integer = 0
    4. Dim cellisNothing As Integer = 0
    6. For i = 0 To DGV.Rows.Count - 1
    7. For y = 1 To DGV.Columns.Count - 1
    8. Dim cell = DGV.Rows(i).Cells(y).Value
    9. Select Case True
    10. Case cell IsNot Nothing
    11. Dim cellString = DGV.Rows(i).Cells(y).Value.ToString
    12. If cellString IsNot String.Empty Then
    13. cellNotStringEmpty = cellNotStringEmpty + 1
    14. Else
    15. cellIsStringEmpty = cellIsStringEmpty + 1
    16. End If
    17. Case Else
    18. cellisNothing = cellisNothing + 1
    19. End Select
    20. Next y
    21. Next i
    23. MessageBox.Show("Zellen Inhalt - Voll: " & cellNotStringEmpty & " Leer: " & cellIsStringEmpty & " Nothing: " & cellisNothing)
    25. End Sub






    Mit (For y = 1 To DGV.Columns.Count - 1) wird die ID Spalte nicht mit gezählt.

    Supi. Damit geht der Lerneffekt jetzt gegen Null. :cursing:
    Aber wenn Du schon Komplettlösungen anbietest, dann sind die ja auch kommentierbar.

    Zeile#1, #2, #3: Über Option Infer On kann man streiten, ich aktiviere es immer.
    Z#6: Count - 1 ist fragwürdig, da dann die AddNew-Zeile (also die letzte DGV-Zeile) mit ausgewertet wird und somit immer Nothing-Zellen dabei sind. Count - 2 wäre m.E. sinnvoller.
    Z#8: Der Variablenname cell legt eine falsche Fährte. Der Inhalt der Variable ist keine Zelle, sondern deren Value.
    Z#9: wegen 2 Fällen mit Select Case zu arbeiten, ist m.E. Overkill. Ein einfaches If-Statement genügt.
    Z#8, #11: statt .Rows(x).Cells(y) kann man kürzer auch .Item(y, x) schreiben
    Z#13, #15, #18: statt x = x + 1 schreibt man besser und kürzer x += 1
    Z#20, #21: Nach einem Next braucht es keine Variablennamen. Wer die Übersicht verliert, sollte eine komplexe Doppelschleife in Funktionen auslagern.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Das mit dem Lerneffekt, war selbstverständlich nicht von mir beabsichtigt!

    ​ Über Option Infer On kann man streiten, ich aktiviere es immer.

    Ist bei mir immer aktiviert. Mir ist klar, dass man nicht 'As Integer = 0' angeben muss. ich dacht zwecks Übersichtlichkeit schreibe ich es trotzdem.
    Genauso wie die Variablen Namen nach dem 'Next'. Mein Fehler.

    ​Count - 1 ist fragwürdig
    und
    ​ wegen 2 Fällen mit Select Case

    Hab ich deswegen genommen weil ich 3 Fälle abfrage. 1. ob value = Nothing, 2. value IsNot String.Empty, 3. value Is String.Empty

    Variablen Namen hab ich geändert. Hast du vollkommen Recht!

    ​.Item(y, x)
    und
    ​x += 1
    wusste ich nicht. Dankeschön!

    Fehler: Um die 'ID'-Spalte nicht zu zählen, muss es natürlich 'For i = 1 To DGV.Rows.Count - 1' sein.

    Geänderter Code:

    VB.NET-Quellcode

    1. ​Private Sub btnCount_Click(sender As Object, e As EventArgs) Handles btnCount.Click
    2. Dim valueNotEmpty As Integer
    3. Dim valueEmpty As Integer
    4. Dim valueNothing As Integer
    6. For i = 1 To DGV.Rows.Count - 1
    7. For y = 0 To DGV.Columns.Count - 1
    8. Dim value = DGV.Item(i, y).Value
    9. Select Case True
    10. Case value IsNot Nothing
    11. Dim cellValue = DGV.Item(i, y).Value.ToString
    12. If cellValue IsNot String.Empty Then
    13. valueNotEmpty += 1
    14. Else
    15. valueEmpty += 1
    16. End If
    17. Case Else
    18. valueNothing += 1
    19. End Select
    20. Next
    21. Next
    23. MessageBox.Show("Zellen Inhalt - Voll: " & valueNotEmpty & " Leer: " & valueEmpty & " Nothing: " & valueNothing)
    25. End Sub


    Über deine Meinung zum geänderten Code, da ich hier im Forum von dir schon sehr viel lernen durfte, würde ich mich freuen.

    Bzgl. der ID-Spalte und der AddNew-Zeile hast Du jetzt aber was durcheinander gehauen. In Zeile#6 und #7 ... uh, das ist aber ungünstig, sehe ich gerade. Du könntest mit x und y als Variablennamen arbeiten, um die "Koordinaten" im DGV anzugeben, aber die Spalten mit y durchzugehen, könnte Verwirrung stiften. Die Spalten (Z#7) müssen von 1 bis DGV.Columns.Count - 1 durchgegangen werden, da stimmte Dein 1. Code, da Du ja die ID-Spalte überspringen willst. Nur die Zeilen müssen eben (weil die letzte Zeile immer leer ist, wenn man AddNew aktiviert hat) von 0 bis DGV.Rows.Count - 2 durchgegangen werden.
    Mit Select Case muss ich Dir widersprechen. Du gehst nur 2 Fälle durch. Und bei einem Fall machst Du noch 2 Unter-Unterscheidungen. Ein doppeltes If wäre m.E. klarer. Aber Haarspalterei.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed Du hast vollkommen Recht, dass mich deine Antworten ein wenig verwirrt haben.
    Ich habe bis jetzt immer zuerst die Zeilen durchlaufen. Habe mir heute ein kleines Projekt gemacht und ausprobiert.
    Ich gehe jetzt zuerst die Spalten(x) und in der zweiten Schleife die Zeilen(y) durch.

    Im Projekt sind 3 Datagridview's. Im ersten wird einfach alles gezählt und eingefärbt. Im zweiten ist Spalte "ID" ausgeblendet und die Eigenschaften des Datagridview "AllowUserToAddRows" auf False gesetzt. Das dritte erklärt sich, mM nach, von selbst.




    Und das ist der Code der drei Buttons.

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​Private Sub btnCount1_Click(sender As Object, e As EventArgs) Handles btnCount1.Click
    3. Dim valueIsNotEmpty As Integer
    4. Dim valueIsEmpty As Integer
    5. Dim valueIsNothing As Integer
    7. For x = 0 To Dgv1.Columns.Count - 1
    8. For y = 0 To Dgv1.Rows.Count - 1
    10. Dim value = Dgv1.Item(x, y).Value
    12. If value IsNot Nothing AndAlso value.ToString IsNot String.Empty Then
    13. valueIsNotEmpty += 1
    14. lsb1.Items.Add(value)
    15. Dgv1(x, y).Style.BackColor = Color.YellowGreen
    16. ElseIf value IsNot Nothing AndAlso value.ToString Is String.Empty Then
    17. valueIsEmpty += 1
    18. Dgv1(x, y).Style.BackColor = Color.SteelBlue
    19. Else
    20. valueIsNothing += 1
    21. Dgv1(x, y).Style.BackColor = Color.Tomato
    22. End If
    23. Next
    24. Next
    25. lblVoll1.Text = valueIsNotEmpty.ToString
    26. lblLeer1.Text = valueIsEmpty.ToString
    27. lblNothing1.Text = valueIsNothing.ToString
    28. lblList1.Text = lsb1.Items.Count.ToString
    29. MessageBox.Show("Zellen Inhalt - Voll: " & valueIsNotEmpty & " Leer: " & valueIsEmpty & " Nothing: " & valueIsNothing)
    30. End Sub
    32. Private Sub btnCount2_Click(sender As Object, e As EventArgs) Handles btnCount2.Click
    34. Dim valueIsNotEmpty As Integer
    35. Dim valueIsEmpty As Integer
    37. For x = 0 To Dgv2.Columns.Count - 1
    38. For y = 0 To Dgv2.Rows.Count - 1
    40. Dim value = Dgv2.Item(x, y).Value
    42. If value.ToString IsNot String.Empty Then
    43. valueIsNotEmpty += 1
    44. lsb2.Items.Add(value)
    45. Dgv2(x, y).Style.BackColor = Color.YellowGreen
    46. Else
    47. valueIsEmpty += 1
    48. Dgv2(x, y).Style.BackColor = Color.SteelBlue
    49. End If
    50. Next
    51. Next
    52. lblVoll2.Text = valueIsNotEmpty.ToString
    53. lblLeer2.Text = valueIsEmpty.ToString
    54. lblList2.Text = lsb2.Items.Count.ToString
    55. MessageBox.Show("Zellen Inhalt - Voll: " & valueIsNotEmpty & " Leer: " & valueIsEmpty)
    56. End Sub
    58. Private Sub btnCount3_Click(sender As Object, e As EventArgs) Handles btnCount3.Click
    60. Dim valueIsNotEmpty As Integer
    61. Dim valueIsEmpty As Integer
    63. For x = 1 To Dgv3.Columns.Count - 1
    64. For y = 0 To Dgv3.Rows.Count - 2
    66. Dim value = Dgv3.Item(x, y).Value
    68. If value.ToString IsNot String.Empty Then
    69. valueIsNotEmpty += 1
    70. lsb3.Items.Add(value)
    71. Dgv3(x, y).Style.BackColor = Color.YellowGreen
    72. Else
    73. valueIsEmpty += 1
    74. Dgv3(x, y).Style.BackColor = Color.SteelBlue
    75. End If
    76. Next
    77. Next
    78. lblVoll3.Text = valueIsNotEmpty.ToString
    79. lblLeer3.Text = valueIsEmpty.ToString
    80. lblList3.Text = lsb3.Items.Count.ToString
    81. MessageBox.Show("Zellen Inhalt - Voll: " & valueIsNotEmpty & " Leer: " & valueIsEmpty)
    82. End Sub


    Ich denke, hoffe, dass ich deine Anregungen richtig verstanden habe.

Facebook
Telefonspende