LISTVIEW -- O .SUBITEMS SUMIU

JORGESALES 07/05/2016 17:42:59
#461899
Pessoal, estou programando em uma maquina com o Windows XP,
até aí tudo bem, o que é estranho é que no código abaixo não
aparece o [Ô][txt-color=#0000f0]item.subitems[/txt-color][Ô]
Dim item as Listitem
connectDB
     rs.open [Ô]Select * from tbClientes[Ô],db,3,3
     Do Until rs.eof
         set item = listview1.listitems.add (,, rs!Codigo)
         item.  [ô]< ----------- Aqui não aparece a propriedade Subitems como opção
         rs.movenext 
     Loop   
fechaBD

Obs: A listview está funcinando perfeitamente, mas só isso que não vai.
Alguem sabe se no Windows XP muda alguma coisa?
JABA 07/05/2016 19:17:32
#461902 Resposta escolhida
Declare assim pra ver:

Dim Item As MSComctlLib.ListItem
JORGESALES 08/05/2016 23:34:37
#461908
JABA, muito obrigado, vou fazer o teste e como sempre postar o resultado aqui.
JORGESALES 15/05/2016 16:29:26
#462096
Jaba, muito obrigado por mais esta grande ajuda,
todavia não deu certo dessa forma mas o problema foi
resolvido copiando e colando tudo para um novo projeto.
Tópico encerrado , respostas não são mais permitidas
Voltar