19/12/2005, 12:18
|
| | | Fecha de Ingreso: noviembre-2003 Ubicación: Costa Rica
Mensajes: 85
Antigüedad: 21 años, 5 meses Puntos: 0 | |
| Compañero,,
Lo hice asi y me cambio el color de la linea de encabezados
gridplayers.Rows = 1
Do While Not rst.EOF
gridplayers.AddItem rst.Fields("ID") & Chr(9) & rst.Fields("NAME") & Chr(9) & rst.Fields("STATUS") & Chr(9) & rst.Fields("BALANCE") & Chr(9) & rst.Fields("PENDING") & Chr(9) & rst.Fields("CREDITLIMIT")
If rst.Fields("STATUS") = "Inactive" Then
For cont = 0 To 5
gridplayers.Col = cont
gridplayers.CellBackColor = &H80FF80
Next cont
End If
rst.MoveNext
Loop
Saludos
Alejandro |