Mensaje enviado por Enrique Oblitas Chacón <eoblitas@adexperu.org.pe> el 13/12/2002

Hola Gema, debes usar el evento FetchCellStyle (tienes que poner la propiedad de la columna FetchStyle a True para que se ejecute). Te mando un ejemplo

Private Sub TDBGNotas_FetchCellStyle(ByVal Condition As Integer, ByVal Split As Integer, Bookmark As Variant, ByVal Col As Integer, ByVal CellStyle As TrueOleDBGrid60.StyleDisp)
   'Evento que pone en rojo las notas finales menores o iguales que 10
   'Columna 12 = Nota Final
   If Not IsNull(TDBGNotas.Columns(12).CellValue(Bookmark)) Then
      If CInt(TDBGNotas.Columns(12).CellValue(Bookmark)) <= 10 Then
         CellStyle.ForeColor = vbRed
      End If
   End If
End Sub

Espero te ayude

Enrique Oblitas
ADEX

----- Original Message -----
From: Gema
To: Visual Basic Español
Sent: Friday, December 13, 2002 10:21 AM
Subject: (VB-ESP) Poner en rojo un número negativo en un TDBGrid


Hola a tod@s

Alguien sabe que parametro debo de utilizar para que cuando en un TDBGrid exista un número con valor negativo me lo ponga en rojo??

Tengo puesto esto, pero no lo hace:

grdPartesTrabajo.Columns("ICS").AddRegexCellStyle dbgAllCells, NegativeStyle, "^ -*"

Muchas gracias