MsFlexGridRésolu

Question

Bonjour &#224; tous!

Je vous explique mon probl&#232;me.

J'ai un flexgrid qui est rempli &#224; partir d'une base de donn&#233;es avec 2 colonnes (Num&#233;ro Interventions; DateReception). J'aimerais chang&#233;  la couleur du texte de la colonne DateRecption en fonction de la date actuelle (si la  Date de reception est inf&#233;rieure &#224; la date d'aujourd'hui le texte est en rouge, si elle est superieure le texte est vert).

je pense qu'il faut utiliser une boucle pour parcourir le MsFlexGrid, mais je ne vois pas comment faire...

merci d'avance....

cs_frop01 · Accepted Answer

Private Sub Data1_Reposition()
Dim i As Integer

    For i = 1 To MSFlexGrid1.Rows - 1
        MSFlexGrid1.Col = 2
        MSFlexGrid1.Row = i
        If CCur(MSFlexGrid1.Text) > 100 Then
            MSFlexGrid1.CellForeColor = vbRed
        End If
    Next i
    MSFlexGrid1.Col = 0
    MSFlexGrid1.Row = 0
End Sub

MsFlexGrid

1 réponse

Discussions similaires