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
Eventuell findet ihr den Wurm
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
VB.NET-Quellcode
- Dim Datum As Date = FormStart.KalenderMenu.Text
- Dim Gruppe As String
- Dim Fehlerort As String
- MyConn = New OleDbConnection With {
- .ConnectionString = FormStart.connString & "Datenbank.accdb"
- }
- ds = New DataSet
- tables = ds.Tables
- da = New OleDbDataAdapter("Select Gruppe, Fehlerort, Fehlerart, Lage, Gerät, Modell, Kennnummer,
- SUM(Switch(Zählpunkt = 'Zp6 alle', 1)) as Zp6,
- SUM(Switch(Zählpunkt = 'Zp7 alle', 1)) as Zp7,
- SUM(Switch(Zählpunkt = 'Zp8 alle', 1)) as Zp8, Kommentar, Bild, ID from Vision
- WHERE Produktionstag = #" & Format$(Datum, "yyyy-MM-dd") & "# AND (Zählpunkt = 'Zp6 alle' OR Zählpunkt = 'Zp7 alle' OR Zählpunkt = 'Zp8 alle')
- GROUP BY Gruppe, Fehlerort, Fehlerart, Lage, Gerät, Modell, Kennnummer, Kommentar, Bild, ID", MyConn)
- da.Fill(ds, "Datenbank")
- Dim view As New DataView(tables(0))
- source1.DataSource = view
- DGV_PivotZiel.DataSource = view
- MyConn.Close()
- MyConn = Nothing
- With DGV_PivotZiel
- .Columns("Gruppe").Width = 70
- .Columns("Gruppe").SortMode = DataGridViewColumnSortMode.NotSortable
- .Columns("Fehlerort").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
- .Columns("Fehlerort").SortMode = DataGridViewColumnSortMode.NotSortable
- .Columns("Fehlerart").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
- .Columns("Fehlerart").SortMode = DataGridViewColumnSortMode.NotSortable
- .Columns("Lage").Width = 50
- .Columns("Lage").SortMode = DataGridViewColumnSortMode.NotSortable
- .Columns("Gerät").Width = 120
- .Columns("Gerät").SortMode = DataGridViewColumnSortMode.NotSortable
- .Columns("Modell").Width = 120
- .Columns("Modell").SortMode = DataGridViewColumnSortMode.NotSortable
- .Columns("Kennnummer").Width = 120
- .Columns("Kennnummer").SortMode = DataGridViewColumnSortMode.NotSortable
- .Columns("Zp6").Width = 50
- .Columns("Zp6").SortMode = DataGridViewColumnSortMode.NotSortable
- .Columns("Zp7").Width = 50
- .Columns("Zp7").SortMode = DataGridViewColumnSortMode.NotSortable
- .Columns("Zp8").Width = 50
- .Columns("Zp8").SortMode = DataGridViewColumnSortMode.NotSortable
- .Columns("Kommentar").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
- .Columns("Kommentar").SortMode = DataGridViewColumnSortMode.NotSortable
- .Columns("Bild").Visible = False
- .Columns("ID").Visible = False
- End With
- For i = DGV_PivotZiel.Rows.Count - 1 To 1 Step -1
- Gruppe = DGV_PivotZiel.Rows(i).Cells(0).Value
- Fehlerort = DGV_PivotZiel.Rows(i).Cells(1).Value
- If DGV_PivotZiel.Rows(i - 1).Cells(0).Value = Gruppe Then
- DGV_PivotZiel.Rows(i).Cells(0).Value = String.Empty
- End If
- If DGV_PivotZiel.Rows(i - 1).Cells(1).Value = Fehlerort Then
- DGV_PivotZiel.Rows(i).Cells(1).Value = String.Empty
- End If
- Next
- 'Bis hier geht alles die untere For Schleife macht er nicht mehr
- For i = 0 To DGV_PivotZiel.Rows.Count - 1
- If DGV_PivotZiel.Rows(i).Cells(11).Value IsNot DBNull.Value Then
- DGV_PivotZiel.Rows(i).Cells(6).Style.BackColor = Color.Green
- End If
- Next
Eventuell findet ihr den Wurm
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Animal2k“ ()