DGV wird aus Access gefüllt, Rest Code wird nicht ausgeführt

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    DGV wird aus Access gefüllt, Rest Code wird nicht ausgeführt

    Hallo zusammen
    ich habe folgendes Problem:
    Ich befülle ein Datagridview mit Daten aus einer Access sobald die Daten drin sind soll eine For Schleife Doppelte löschen und bei vorhandenen Eintrag den Hintergrund Grün machen.
    -
    Wenn ich ca 25 - 40 Zeilen habe funktioniert es einwandfrei, sobald es aber über 100 Zeilen sind macht er mir die Farben nicht mehr und der CellContentClick geht auch nicht in dieser DGV
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim Datum As Date = FormStart.KalenderMenu.Text
    2. Dim Gruppe As String
    3. Dim Fehlerort As String
    4. MyConn = New OleDbConnection With {
    5. .ConnectionString = FormStart.connString & "Datenbank.accdb"
    6. }
    7. ds = New DataSet
    8. tables = ds.Tables
    10. da = New OleDbDataAdapter("Select Gruppe, Fehlerort, Fehlerart, Lage, Gerät, Modell, Kennnummer,
    11. SUM(Switch(Zählpunkt = 'Zp6 alle', 1)) as Zp6,
    12. SUM(Switch(Zählpunkt = 'Zp7 alle', 1)) as Zp7,
    13. SUM(Switch(Zählpunkt = 'Zp8 alle', 1)) as Zp8, Kommentar, Bild, ID from Vision
    14. WHERE Produktionstag = #" & Format$(Datum, "yyyy-MM-dd") & "# AND (Zählpunkt = 'Zp6 alle' OR Zählpunkt = 'Zp7 alle' OR Zählpunkt = 'Zp8 alle')
    15. GROUP BY Gruppe, Fehlerort, Fehlerart, Lage, Gerät, Modell, Kennnummer, Kommentar, Bild, ID", MyConn)
    17. da.Fill(ds, "Datenbank")
    18. Dim view As New DataView(tables(0))
    19. source1.DataSource = view
    20. DGV_PivotZiel.DataSource = view
    21. MyConn.Close()
    22. MyConn = Nothing
    24. With DGV_PivotZiel
    25. .Columns("Gruppe").Width = 70
    26. .Columns("Gruppe").SortMode = DataGridViewColumnSortMode.NotSortable
    27. .Columns("Fehlerort").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    28. .Columns("Fehlerort").SortMode = DataGridViewColumnSortMode.NotSortable
    29. .Columns("Fehlerart").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    30. .Columns("Fehlerart").SortMode = DataGridViewColumnSortMode.NotSortable
    31. .Columns("Lage").Width = 50
    32. .Columns("Lage").SortMode = DataGridViewColumnSortMode.NotSortable
    33. .Columns("Gerät").Width = 120
    34. .Columns("Gerät").SortMode = DataGridViewColumnSortMode.NotSortable
    35. .Columns("Modell").Width = 120
    36. .Columns("Modell").SortMode = DataGridViewColumnSortMode.NotSortable
    37. .Columns("Kennnummer").Width = 120
    38. .Columns("Kennnummer").SortMode = DataGridViewColumnSortMode.NotSortable
    39. .Columns("Zp6").Width = 50
    40. .Columns("Zp6").SortMode = DataGridViewColumnSortMode.NotSortable
    41. .Columns("Zp7").Width = 50
    42. .Columns("Zp7").SortMode = DataGridViewColumnSortMode.NotSortable
    43. .Columns("Zp8").Width = 50
    44. .Columns("Zp8").SortMode = DataGridViewColumnSortMode.NotSortable
    45. .Columns("Kommentar").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    46. .Columns("Kommentar").SortMode = DataGridViewColumnSortMode.NotSortable
    47. .Columns("Bild").Visible = False
    48. .Columns("ID").Visible = False
    49. End With
    51. For i = DGV_PivotZiel.Rows.Count - 1 To 1 Step -1
    52. Gruppe = DGV_PivotZiel.Rows(i).Cells(0).Value
    53. Fehlerort = DGV_PivotZiel.Rows(i).Cells(1).Value
    54. If DGV_PivotZiel.Rows(i - 1).Cells(0).Value = Gruppe Then
    55. DGV_PivotZiel.Rows(i).Cells(0).Value = String.Empty
    56. End If
    57. If DGV_PivotZiel.Rows(i - 1).Cells(1).Value = Fehlerort Then
    58. DGV_PivotZiel.Rows(i).Cells(1).Value = String.Empty
    59. End If
    60. Next
    61. 'Bis hier geht alles die untere For Schleife macht er nicht mehr
    62. For i = 0 To DGV_PivotZiel.Rows.Count - 1
    63. If DGV_PivotZiel.Rows(i).Cells(11).Value IsNot DBNull.Value Then
    64. DGV_PivotZiel.Rows(i).Cells(6).Style.BackColor = Color.Green
    65. End If
    66. Next


    Eventuell findet ihr den Wurm :/

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

    @Animal2k Setze einen Spoiler um den Code in Deinem ersten Post :!:
    Ich nehme mal an, dass der Code in der Form_Load ausgeführt wird, leider hast Du das uns verschwiegen.
    Wenn dort Exceptions auftreten, werden die ggf. verschluckt.
    Pack das ganze mal in die Form_Shown oder eine Button_Click.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Animal2k schrieb:

    Hallo zusammen
    ich habe folgendes Problem:
    Ich befülle ein Datagridview mit Daten aus einer Access sobald die Daten drin sind soll eine For Schleife Doppelte löschen und bei vorhandenen Eintrag den Hintergrund Grün machen.


    doppelte solltest du direkt in deiner SQL-Anweisung ausschliessen
    siehe

    VB.NET-Quellcode

    1. "Select DISTINCT....."


    w3schools.com/sql/sql_distinct.asp

    Animal2k schrieb:

    Vorallem warum geht mein Cellclick Content hier nicht aber wenn es weniger Daten sind geht es schon


    Animal2k schrieb:

    VB.NET-Quellcode

    1. 'Bis hier geht alles die untere For Schleife macht er nicht mehr
    Der gezeigte Code ist höchst fehleranfällig - je nachdem, was für Daten ankommen.
    Leider wird die Methode nicht komplett gezeigt.
    So kann ich nur einen unsachgemässen TryCatch vermuten, der das wunderliche Verhalten verursacht.
    Also meine Vermutung: Bei vielen Daten sind welche dabei, die einen Fehler verursachen. Dann springt er aus der Methode, der unsachgemässe TryCatch catcht aber die Fehlermeldung, und du erfährst nichts davon.
    Allerdings weiteren Code kann er dann ja auch nicht mehr ausführen - also so wäre das beschriebene Verhalten ganz logisch erklärbar.

    Leider wird die Methode nicht komplett gezeigt.


    Das ist der komplette Sub @ErfinderDesRades


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub AlleZp_Alle()
    2. Dim Datum As Date = FormStart.KalenderMenu.Text
    3. Dim Gruppe As String
    4. Dim Fehlerort As String
    5. MyConn = New OleDbConnection With {
    6. .ConnectionString = FormStart.connString & "Datenbank.accdb"
    7. }
    8. ds = New DataSet
    9. tables = ds.Tables
    11. da = New OleDbDataAdapter("Select Gruppe, Fehlerort, Fehlerart, Lage, Gerät, Modell, Kennnummer,
    12. SUM(Switch(Zählpunkt = 'Zp6 alle', 1)) as Zp6,
    13. SUM(Switch(Zählpunkt = 'Zp7 alle', 1)) as Zp7,
    14. SUM(Switch(Zählpunkt = 'Zp8 alle', 1)) as Zp8, Kommentar, Bild, ID from Vision
    15. WHERE Produktionstag = #" & Format$(Datum, "yyyy-MM-dd") & "# AND (Zählpunkt = 'Zp6 alle' OR Zählpunkt = 'Zp7 alle' OR Zählpunkt = 'Zp8 alle')
    16. GROUP BY Gruppe, Fehlerort, Fehlerart, Lage, Gerät, Modell, Kennnummer, Kommentar, Bild, ID", MyConn)
    18. da.Fill(ds, "Datenbank")
    19. Dim view As New DataView(tables(0))
    20. source1.DataSource = view
    21. DGV_PivotZiel.DataSource = view
    22. MyConn.Close()
    23. MyConn = Nothing
    25. With DGV_PivotZiel
    26. .Columns("Gruppe").Width = 70
    27. .Columns("Gruppe").SortMode = DataGridViewColumnSortMode.NotSortable
    28. .Columns("Fehlerort").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    29. .Columns("Fehlerort").SortMode = DataGridViewColumnSortMode.NotSortable
    30. .Columns("Fehlerart").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    31. .Columns("Fehlerart").SortMode = DataGridViewColumnSortMode.NotSortable
    32. .Columns("Lage").Width = 50
    33. .Columns("Lage").SortMode = DataGridViewColumnSortMode.NotSortable
    34. .Columns("Gerät").Width = 120
    35. .Columns("Gerät").SortMode = DataGridViewColumnSortMode.NotSortable
    36. .Columns("Modell").Width = 120
    37. .Columns("Modell").SortMode = DataGridViewColumnSortMode.NotSortable
    38. .Columns("Kennnummer").Width = 120
    39. .Columns("Kennnummer").SortMode = DataGridViewColumnSortMode.NotSortable
    40. .Columns("Zp6").Width = 50
    41. .Columns("Zp6").SortMode = DataGridViewColumnSortMode.NotSortable
    42. .Columns("Zp7").Width = 50
    43. .Columns("Zp7").SortMode = DataGridViewColumnSortMode.NotSortable
    44. .Columns("Zp8").Width = 50
    45. .Columns("Zp8").SortMode = DataGridViewColumnSortMode.NotSortable
    46. .Columns("Kommentar").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    47. .Columns("Kommentar").SortMode = DataGridViewColumnSortMode.NotSortable
    48. .Columns("Bild").Visible = False
    49. .Columns("ID").Visible = False
    50. End With
    52. For i = DGV_PivotZiel.Rows.Count - 1 To 1 Step -1
    53. Gruppe = DGV_PivotZiel.Rows(i).Cells(0).Value
    54. Fehlerort = DGV_PivotZiel.Rows(i).Cells(1).Value
    55. If DGV_PivotZiel.Rows(i - 1).Cells(0).Value = Gruppe Then
    56. DGV_PivotZiel.Rows(i).Cells(0).Value = String.Empty
    57. End If
    58. If DGV_PivotZiel.Rows(i - 1).Cells(1).Value = Fehlerort Then
    59. DGV_PivotZiel.Rows(i).Cells(1).Value = String.Empty
    60. End If
    61. Next
    63. For i = 0 To DGV_PivotZiel.Rows.Count - 1
    64. If DGV_PivotZiel.Rows(i).Cells(11).Value IsNot DBNull.Value Then
    65. DGV_PivotZiel.Rows(i).Cells(6).Style.BackColor = Color.Green
    66. End If
    67. Next
    68. End Sub



    Ich hol mir im Endeffekt nur die Daten von einem Tag aus der Datenbank, meine Schleifen unten sorgen nur für Schöner Wohnen (Übersichtlicher machen)

    Sobald ich einen anderen Tag wähle wo es weniger Daten sind funktioniert alles einwandfrei :/

    @Animal2k Wenn Du den Code debuggst, findest Du sogar die Fehlerzeile; das erwarten wir von Dir:
    Debuggen, Fehler finden und beseitigen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    echt - siehst du da schon den Fehler?
    Ich sehe nur mögliche Fehler - je nachdem, was für Daten kommen.
    Nachwievor vermute ich einen unsachgemässen TryCatch, der verhindert, dass die Fehler da angezeigt werden, wo sie auftreten.
    Der TryCatch wird in einer anderen Methode sein, welche die hier gezeigte aufruft.

Facebook
Telefonspende