Bonjour

Depuis quelques jours j'essaye de trouver une solution à mon problème par les exemples sur le Net ou par les cours. Je crois que mon problème est simple mais il y une truc qui m'échappe. J'ai une DataGrid charger, et je veux colorer des lignes selon une condition précise (j'ai une colonne nommée "DateRetraite" et je veux que tous les employer qui ont une date inférieure à la date système se marquent en Rouge (toute la ligne) et que les employer qui ont encore 6 mois avant la date système se marquent en Orangé).

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
  Cn.Open()
        CmdRet.CommandType = CommandType.Text
        CmdRet.CommandText = "Select TPersonnels.CNRPS, TPersonnels.PrenomPers, TPersonnels.NomPers, TPersonnels.DateNaisPers order by TPersonnels.DateRetraite ASC"
        CmdRet.Connection = Cn
        DrRet = CmdRet.ExecuteReader
        DtRet.Load(DrRet)
        DataRet.DataSource = DtRet 'Afficher la resultat de la requette dans DataGridView1
        Cn.Close()
        DataRet.Columns(0).HeaderText = "CNRPS"
        DataRet.Columns(1).HeaderText = "Nom"
        DataRet.Columns(2).HeaderText = "Prénom"
        DataRet.Columns(3).HeaderText = "DateNaissance"
        DataRet.Columns(4).HeaderText = "DateRetraite"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub DataRet_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataRet.CellFormatting
     If Me.DataRet.Rows(e.RowIndex).Cells.Item("DateRetraite").ToString= "01/01/2013" Then
            Me.DataRet.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Red
        End If
    End Sub
Le Message d’erreur : La colonne nommée DateRetraite est introuvable.

J'ai pris une date fixe pour tester mais sans aucune résultat.("01/01/2013")
Je compte sur vous les brillant pour m'aider et merci.