ListView et coleur de texte

ListView et coleur de texte - VB/VBA/VBS - Programmation

Marsh Posté le 29-09-2004 à 16:17:46    

Salut
 
jaffiche mes resultats de base de données dans un listview de cette façon la :
 

Code :
  1. Set rsListView = DE1.Connection1.Execute("Select * from résultats Order BY id DESC" )
  2. If rsListView.RecordCount <> 0 Then
  3. rsListView.MoveFirst
  4. Do
  6. If rsListView.Fields(10).Value = "Victoire" Then
  7. ListView1.ForeColor = vbRed
  8. Else
  9. ListView1.ForeColor = vbBlack
  10. End If
  13. Set li = Me.ListView1.ListItems.Add(, , rsListView("date" ))
  15. 'li.ListSubItems.Add , , rsListView("prenom" )
  16. li.ListSubItems.Add , , rsListView("victoire" )
  17. li.ListSubItems.Add , , rsListView("PtsMarqués" )
  18. li.ListSubItems.Add , , rsListView("nom" )
  19. li.ListSubItems.Add , , rsListView("club" )
  20. li.ListSubItems.Add , , rsListView("classement" )
  21. 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 :
  1. If rsListView.Fields(10).Value = "Victoire" Then
  2. ListView1.ForeColor = vbRed
  3. Else
  4. ListView1.ForeColor = vbBlack
  5. End If

Reply

Marsh Posté le 29-09-2004 à 16:17:46   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed