Bonjour
CmdRet.CommandText = "Select TPersonnels.CNRPS, TPersonnels.PrenomPers, TPersonnels.NomPers, TPersonnels.DateNaisPers, TPersonnels.DateRetraite order by TPersonnels.DateRetraite ASC"
TPersonnels.DateRetraite existe peut être une faute lors du copie du code
J'ai changé Order by
...order by TPersonnels.DateRetraite ASC ' Ascendant
par
...order by TPersonnels.DateRetraite DESC ' Descendant
et ça fonctionne pour le moment et cela avec la proposition de chrismonoye
1 2 3 4 5 6 7 8 9 10
| Private Sub DataRet_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataRet.CellFormatting
Dim row As DataRowView = CType(DataRet.Rows(e.RowIndex).DataBoundItem, DataRowView)
If Not row Is Nothing Then
If row("DateRetraite").ToString < CType(FormatDateTime$(Now, DateFormat.ShortDate), Date) Then
Me.DataRet.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Red
End If
End If
End Sub |
Je vais le tester pour tous mes conditions et si ça marche bien je taperais Résolut
Merci pour tous.
Partager