COLORIR LINHAS NO LISTVIEW E CLICAR NO LIST E ABRI

CARDOZO 29/06/2012 15:19:15
#405205

pessoal, preciso agora depois de muito tentar e conseguir com ajuda do pessoal daqui, colorir uma linha no litview quando um registro estiver com 0, o codigo abaixo carrega o list e apos preencher tenho q colorir as linhas cuja ujm determinado campo seja 0 e tb apóps clicar no registro abrir em text box para alterar alguns campos, tem como, seguem abaixo o codigo

Dim itmX As ListItem
Dim Banco As DAO.Database
Dim tab_lista As DAO.Recordset
Dim ws As Workspace

Private Sub Form_Load()
Set ws = DBEngine.Workspaces(0)
Set Banco = ws.OpenDatabase(App.Path & [Ô]\poomsae.mdb[Ô])
Set tab_lista = Banco.OpenRecordset([Ô]SELECT * FROM atleta[Ô], dbOpenDynaset)

For ct = Me.LST.ColumnHeaders.Count To 1 Step -1
Me.LST.ColumnHeaders.Remove (ct)
Next
Me.LST.ColumnHeaders.Add 1, [Ô]Colocacao[Ô], [Ô]Pos.[Ô], LST.Width / 25
Me.LST.ColumnHeaders.Add 2, [Ô]Media[Ô], [Ô]Média[Ô], LST.Width / 25
Me.LST.ColumnHeaders.Add 3, [Ô]Aluno[Ô], [Ô]Aluno[Ô], LST.Width / 3
Me.LST.ColumnHeaders.Add 4, [Ô]Academia[Ô], [Ô]Academia[Ô], LST.Width / 4
Me.LST.ColumnHeaders.Add 5, [Ô]Categoria[Ô], [Ô]Categoria[Ô], LST.Width / 13
Me.LST.ColumnHeaders.Add 6, [Ô]Graduacao[Ô], [Ô]Graduacao[Ô], LST.Width / 13

[ô]se eu retirar essa parte aki ele carrega os cabeçalhso dos listew, mas se eu deixar esta parte em diante ele da o erro de 380 Invalidi property value e nos itens quando passo o maou os valores estão lá, ele so não carrega onde to errando ou ta faltando o que?
While Not tab_lista.EOF
If tab_lista!Codigo Then
Set itmX = Me.LST.ListItems.Add(, , tab_lista!colocacao) [ô] se precisar adionar imagem à primeira coluna
Else
[ô]Set lstPed = Lvped.ListItems.Add(, , rsped!Codigo)
End If
[ô] itmX.SubItems(0) = Trim(Tab_lista!Codigo)
itmX.SubItems(1) = Trim(tab_lista!media)
itmX.SubItems(2) = Trim(tab_lista!Aluno)
itmX.SubItems(3) = Trim(tab_lista!Academia)
itmX.SubItems(4) = Trim(tab_lista!Categoria)
itmX.SubItems(5) = Trim(tab_lista!Graduacao)
tab_lista.MoveNext
Wend

End Sub