[Resolvido]Referenciar um Nó Filho da Treeview

Bom dia Amigos do Forum,

Estou elaborando um formulario para consultas, e estou utilizando os controles Treeview, ImageList, e Listview
através da referência Microsoft Windows Common Controls 6.0(SP6)

Fiz um bd de exemplo aqui para melhor entendimento
BD_Teste

No formqFunciona eu clico na Treeview Clientes, ele me mostra os municipios, e ao clicar no municipio ele popula a Listview com os clientes do municipio.

No formqPreciso eu criei um Nó Estado, onde eu clico em Clientes, ele me mostra os estados, clico no estado e ele me mostra os municipios. Como o Nó dos municipios agora é Filho do Nó Estado, ao clicar no municipio eu não estou mais conseguindo popular a Listview.

Peço ajuda aos mestres, pois é muito dificil encontrar exemplos e tutoriais sobre isso.

Se Alguem puder me ajudar, desde já agradeço.

Sds,

Amigo

Veja se aqui encontra o que quer

www.macoratti.net/treeview.htm

Veja também este exemplo do site dos programadores

http://www.svcsoftwarehouse.com/detalhes-aplic-c-login.php?codigo=0000000088

Amigo Vieira,

Desde já agradeço a atenção dispensada.

Fiz o formulário com a ajuda destes exemplos.

O que está faltando mesmo é eu conseguir setar o Nó municipios que se tornou filho do Nó Estado e popular a Listview.

Sei que tenho que achar uma outra maneira de referenciar o Nó no evento Click.

Tô fuçando aqui pra ver se descubro.

Sds,

Não sei não, mas acho que esse nó é um tremendo de um nó cego e está de dando um nó nos neurônios, não? rsrsrs
Não consegui abrir o exemplo a contento aqui. Diz que está faltando coisas. Não olhei as referências por falta de tempo.

Fala criquio, Blz?

E dai, ja decidiu se vai no Encontro em Novembro?

Como falei no primeiro tópico, a referência é o "mscomclt.ocx"

Ta complicado mesmo...rsss, mas vou chegar lá.

Sds,

Amigo

Veja se este exemplo vai ser útil ou não?

http://mymsaccessblog.blogspot.com/2008/02/using-treeview-control-as-record.html

Ao que tudo indica, infelizmente não poderei participar esse ano

Boa noite, chsestrem

Substitua
Select Case Node.Parent.Key
por
Select Case Node.Root

Cumprimentos,

Bom dia Mestre Alexandre,

Muito obrigado pela dica. Funcionou no "Clientes" como queria.

Porém no "Proprietarios", parou de funcionar.

O que está havendo, é que o nó Pai "Clientes" tem duas

ramificações, "Estado", e "Municipio" Certo?

E o nó Pai "Proprietario" tem uma. Somente o nome do Proprietario

Se vc puder da uma olhada , desde já agradeço.

Tem de ter dois Select independentes e o Root tem de ser Parent tambem.

O select Clientes tem de estar em primeiro no código.


Private Sub TreeView1_NodeClick(ByVal Node As Object)
Static intPrevNode As String
If Node.Parent Is Nothing Then Exit Sub
If intPrevNode = Nz(Node.Tag, 0) Then
Exit Sub
Else
intPrevNode = Nz(Node.Tag, 0)
End If

Select Case Node.Parent.Root
Case "Clientes"
carregalistaB Node
End Select

Select Case Node.Parent.Key
Case "Proprietarios"
carregalista Node
End Select
End Sub

Bom dia Ricardo,

Valeu mesmo Amigo, muito obrigado

Já estava meio louco aqui. rssss

Por isso que adoro este Forum.

Agradeço também os exemplos e as dicas de todos.

Bom fim de Semana.

Sds,