Resaltar filas de un dbgrid

jseclen
16 de Julio del 2004
Holas otra vez,

Quisiera saber como resaltar o cambiar el background de determinadas filas de un dbgrid ..

Es que quisiera darle un color distinto cuando ese registro cumpla una determinada caracteristica.

Saludos..

tecniCam
16 de Julio del 2004
Esto es un poco complicado y lleva varios procedimientos.

Cuando se cumpla la condición que sea y se pulse u ocurra cualquier evento llama a este procedimiento y ponle a cada cosa su nombre.

Esto cambia el color de la fila especificada, igual puedes hacer con la columna, con la celda, etc. sólo usa las propiedades del Grid (msh).

Sub PintarFila(fila As Integer)

Dim i As Integer


For i = 0 To msh.Cols - 1
With msh
If msh.Tag <> -1 Then
.col = i
.Row = msh.Tag
.CellBackColor = &HC0FFFF 'RGB(249, 250, 222)
.CellForeColor = RGB(205, 89, 20)
End If

If fila <> -1 Then
.col = i
.Row = fila
.CellBackColor = &HFFFFFF
.CellForeColor = RGB(1, 1, 1)
End If
End With
Next

msh.Tag = fila
End Sub