Ich fülle ein ungebundenes DGV zum Thema Ahnenforschung und würde gern die Zeilenfarbe anpassen, abhängig vom Geschlecht.
Der untenstehende Code macht es eigentlich auch, aber die erste Zeile im DGV bleibt unverändert.
Was muss ich anpassen, um auch die Zeile zu erreichen. Habe schon vergebens den ganzen Tag im Netz gesucht.
Vielen Dank für Eure Hilfe
Der untenstehende Code macht es eigentlich auch, aber die erste Zeile im DGV bleibt unverändert.
Was muss ich anpassen, um auch die Zeile zu erreichen. Habe schon vergebens den ganzen Tag im Netz gesucht.
Vielen Dank für Eure Hilfe
VB.NET-Quellcode
- .dgv_Geschwister.Rows.Clear()
- If int_Ges > -1 Then
- For int_l01 = 0 To int_Ges
- r_lng_ID = tg_lng_ID(int_l01)
- r_str_Name = tg_str_Name(int_l01)
- r_str_GebName = tg_str_GebName(int_l01)
- r_str_Vorname = tg_str_Vorname(int_l01)
- r_str_GOrt = tg_str_GOrt(int_l01)
- r_str_GDat_JJ = tg_str_GDat_JJ(int_l01)
- r_str_GDat_MM = tg_str_GDat_MM(int_l01)
- r_str_GDat_TT = tg_str_GDat_TT(int_l01)
- r_str_SDat_JJ = tg_str_SDat_JJ(int_l01)
- r_str_SDat_MM = tg_str_SDat_MM(int_l01)
- r_str_SDat_TT = tg_str_SDat_TT(int_l01)
- r_str_Geschl = tg_str_Geschl(int_l01)
- Call Color_Geschlecht()
- Call Erm_HDat()
- REM *--------------------------------------------*
- REM * Füllen des DataGrids *
- REM *--------------------------------------------*
- With .dgv_Geschwister
- .Rows.Add(r_lng_ID.ToString("###0"), r_str_Name, r_str_GebName, r_str_Vorname, str_HDat1, str_HDat2, str_HDat3, r_str_Geschl)
- .Rows(int_l01).DefaultCellStyle.ForeColor = col_tx_Geschl
- End With
- Next
- End If
- End With]