Listview señalar registros otro color
Hola, tngo un listview enlazado con una base de datos, en la cual hay registros que estan anulados. Todo ello esta en una tabla, y quisiera que al cargarlos en el listview los que tengan el campo como anulados(ok) ese registro me lo marcara con letra roja. Este es el codigo q tengo,, y que voy probando.
Public Function carga_lstvdatos_plano()
'Muestra los datos de la base en el listview
If rs2.EOF = True And rs2.BOF = True Then
MsgBox "Introduzca Datos en la BD para poder visualizar", vbInformation, "No hay datos"
Else
With rs2
If .RecordCount <> 0 Then
Form4.LstvDatos.ListItems.Clear
.MoveFirst
While Not rs2.EOF
If rs2.Fields("anulado").Value = "Si" Then
chivcolor = 1
Form4.LstvDatos.ForeColor = red 'ROJO
Else
chivcolor = 0
Form4.LstvDatos.ForeColor = black 'negro
End If
Set items = Form4.LstvDatos.ListItems.Add(, , .Fields(0) & "")
items.SubItems(1) = .Fields("numplano") & ""
items.SubItems(1) = .Fields("titulo") & ""
items.SubItems(2) = .Fields("fecharealizado") & ""
.MoveNext
Wend
End If
End With
End If
End Function
Public Function carga_lstvdatos_plano()
'Muestra los datos de la base en el listview
If rs2.EOF = True And rs2.BOF = True Then
MsgBox "Introduzca Datos en la BD para poder visualizar", vbInformation, "No hay datos"
Else
With rs2
If .RecordCount <> 0 Then
Form4.LstvDatos.ListItems.Clear
.MoveFirst
While Not rs2.EOF
If rs2.Fields("anulado").Value = "Si" Then
chivcolor = 1
Form4.LstvDatos.ForeColor = red 'ROJO
Else
chivcolor = 0
Form4.LstvDatos.ForeColor = black 'negro
End If
Set items = Form4.LstvDatos.ListItems.Add(, , .Fields(0) & "")
items.SubItems(1) = .Fields("numplano") & ""
items.SubItems(1) = .Fields("titulo") & ""
items.SubItems(2) = .Fields("fecharealizado") & ""
.MoveNext
Wend
End If
End With
End If
End Function