Moin zusammen,
folgendes: Problem
Ich fülle beim Laden und beim aktualisieren einer form ein Datagridview mit einer Datasouce in Form einer Abfrage in der Form:
Datensatz-ID | Bezeichnung | Status | Feldfarbe | Textfarbe
Die Spalten 0, 3, 4 werden ausgeblendet
Nachdem das dgv gefüllt ist, wird jede Zeile anhand der Werte in den Spalten 3 und 4 (Backcolor, Forecolor) formatiert.
Beim Laden der Form bleiben die Zeilen weiß und die Schrift schwarz, obwohl das durchdebuggen gezeigt hat, das die Farbwerte gelesen und zugewiesen werden.
Die werde aus der Abfrage stehen korrekt drin.
Beim Aktivieren der Form (durch wechseln zu einer anderen geöffneten und zurückwechseln) wird das dgv dann richtig durch die gleiche Funktion formatiert.
refresh oder erneutes aufrufen der Funktion haben nichts gebracht.
Code:
Könnt ihr mir helfen?
Lg
Arne
Verschoben. ~Trade
folgendes: Problem
Ich fülle beim Laden und beim aktualisieren einer form ein Datagridview mit einer Datasouce in Form einer Abfrage in der Form:
Datensatz-ID | Bezeichnung | Status | Feldfarbe | Textfarbe
Die Spalten 0, 3, 4 werden ausgeblendet
Nachdem das dgv gefüllt ist, wird jede Zeile anhand der Werte in den Spalten 3 und 4 (Backcolor, Forecolor) formatiert.
Beim Laden der Form bleiben die Zeilen weiß und die Schrift schwarz, obwohl das durchdebuggen gezeigt hat, das die Farbwerte gelesen und zugewiesen werden.
Die werde aus der Abfrage stehen korrekt drin.
Beim Aktivieren der Form (durch wechseln zu einer anderen geöffneten und zurückwechseln) wird das dgv dann richtig durch die gleiche Funktion formatiert.
refresh oder erneutes aufrufen der Funktion haben nichts gebracht.
Code:
Visual Basic-Quellcode
- Private Sub FillDGVKK()
- FillDgv(Me.dgv_KK, sql_KKinAU(const_WertID)) 'Füllen des DGV mit einer Abfrage
- HideColumns(dgv_KK, "0,3,4") ' ausblenden der Spalten
- Me.dgv_KK.Refresh()
- Dim dgvRow As DataGridViewRow
- Dim colText As New Color
- Dim colFeld As New Color
- For Each dgvRow In dgv_KK.Rows
- Try
- colText = Color.FromArgb(dgvRow.DataBoundItem(3).ToString) ' korrekte Werte, auch wenn sich die Farben nicht verändern
- colFeld = Color.FromArgb(dgvRow.DataBoundItem(4).ToString) ' korrekte Werte, auch wenn sich die Farben nicht verändern
- dgvRow.DefaultCellStyle.ForeColor = colText
- dgvRow.DefaultCellStyle.BackColor = colFeld
- Catch ex As Exception ' Falls keine Farben vorgegeben sind (NULL / leerer String)
- End Try
- Next
- End Sub
Könnt ihr mir helfen?
Lg
Arne
Verschoben. ~Trade
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Trade“ ()