nycius Ich liebe dich ! | Salut
jaffiche mes resultats de base de données dans un listview de cette façon la :
Code :
- Set rsListView = DE1.Connection1.Execute("Select * from résultats Order BY id DESC" )
- If rsListView.RecordCount <> 0 Then
- rsListView.MoveFirst
- Do
- If rsListView.Fields(10).Value = "Victoire" Then
- ListView1.ForeColor = vbRed
- Else
- ListView1.ForeColor = vbBlack
- End If
- Set li = Me.ListView1.ListItems.Add(, , rsListView("date" ))
- 'li.ListSubItems.Add , , rsListView("prenom" )
- li.ListSubItems.Add , , rsListView("victoire" )
- li.ListSubItems.Add , , rsListView("PtsMarqués" )
- li.ListSubItems.Add , , rsListView("nom" )
- li.ListSubItems.Add , , rsListView("club" )
- li.ListSubItems.Add , , rsListView("classement" )
- li.ListSubItems.Add , , rsListView("points" )
|
alors jaimerai que lorsque le champ "victoire" (de ma base) est egal a "Victoire" ma ligne saffiche en rouge sinon elle reste en noir
jai essayé de mettre ca mais ca ne marche pas :
Code :
- If rsListView.Fields(10).Value = "Victoire" Then
- ListView1.ForeColor = vbRed
- Else
- ListView1.ForeColor = vbBlack
- End If
|
|
