19/12/2005, 11:58
|
| | | Fecha de Ingreso: noviembre-2003 Ubicación: Costa Rica
Mensajes: 85
Antigüedad: 20 años, 6 meses Puntos: 0 | |
| No me funciona todavia lo de los colores por Status, lo hice asi.
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
Gridplayers.CellBackColor = &H80FF80
Else
Gridplayers.CellBackColor = &HFFFFFF
End If
rst.MoveNext
Loop
Hay otra forma de hacerlo??
Gracias |