TREEVIEW

GUILHERMEMFA 08/12/2009 16:39:49
#329358
pessoal eh o seguinte to montado um treeview com os seguintes dados de uma tabela

NumDesenho Posicao
AAA-10234 010
AAA-10234 020
AAA-10234 030
09-EFL-233 AB1
09-EFL-233 AB2
4E-9874 J
4E-9874 C
4E-9874 F

O objetivo é montar o treeview onde os desenhos são os Nós e as posições são filhos.
consegui fazer isso tranquilo, soh que parece ter alguma coisa errada com o desenho [Ô]4E-9874[Ô], da erro qdo tento adiciona-lo no treeview, alguem pode me explicar. Se alterar a letra E do desenho por outra letra funciona. Grato
LEANDRO 08/12/2009 16:44:21
#329359
Qual a extensão ?
GUILHERMEMFA 08/12/2009 16:47:54
#329360
Leandro [Ô]NumDesenho[Ô] eh uma coluna da tabela do tipo Varchar que contem numeros de desenhos
TECLA 08/12/2009 17:04:00
#329362
[txt-size=2]Qual o erro?[/txt-size]
GUILHERMEMFA 09/12/2009 09:04:01
#329397
A imagem anexada mostra o Treeview montado sem problemas com os desenhos de numero: 4D-9874 e DOE-10121
se alterar o numero do desenho 4D-9874 para 4E-9874, ocorre o erro que está na parte inferior da imagem anexada.
Alguem sabe me explicar pq ocorre isso?
Grato
GUILHERMEMFA 09/12/2009 16:27:27
#329426
Alguém???
TECLA 09/12/2009 21:11:54
#329434
Você não postou o código que está usando neste escopo, mas... provavelmente, a chave [txt-color=#FF0000]4D-9874[/txt-color] já tenha sido utilizada algumas linhas acima.

Seria interessante você postar a ROTINA, a LINHA DE CÓDIGO em que o erro ocorre e o VALOR atual no ato do erro.
GUILHERMEMFA 10/12/2009 09:45:09
#329455
Assim da certo
Private Sub Form_Load()
Dim pai01 As String, pai02 As String, pai03 As String
pai01 = [Ô]4T-9874[Ô]
pai02 = [Ô]Ingrediente Torta[Ô]
pai03 = [Ô]Ingrediente Lasanha[Ô]
TreeView1.Nodes.Add , , pai01, pai01
TreeView1.Nodes.Add , , pai02, pai02
TreeView1.Nodes.Add , , pai03, pai03

TreeView1.Nodes.Add pai01, tvwChild, [Ô]2 Ovo[Ô], [Ô]2 Ovo[Ô]
TreeView1.Nodes.Add pai01, tvwChild, [Ô]Açucar[Ô], [Ô]Açucar[Ô]
TreeView1.Nodes.Add pai01, tvwChild, [Ô]Trigo[Ô], [Ô]Trigo[Ô]

TreeView1.Nodes.Add pai02, tvwChild, [Ô]1 Ovo[Ô], [Ô]1 Ovo[Ô]
TreeView1.Nodes.Add pai02, tvwChild, [Ô]Chocolate[Ô], [Ô]Chocolate[Ô]
TreeView1.Nodes.Add pai02, tvwChild, [Ô]Morango[Ô], [Ô]Morango[Ô]

TreeView1.Nodes.Add pai03, tvwChild, [Ô]Óleo[Ô], [Ô]Óleo[Ô]
TreeView1.Nodes.Add pai03, tvwChild, [Ô]Mussarela[Ô], [Ô]Mussarela[Ô]
TreeView1.Nodes.Add pai03, tvwChild, [Ô]Tempero[Ô], [Ô]Tempero[Ô]
End Sub

[ô]--------------------------

Assim da errado

Private Sub Form_Load()
Dim pai01 As String, pai02 As String, pai03 As String
pai01 = [Ô]4D-9874[Ô]
pai02 = [Ô]Ingrediente Torta[Ô]
pai03 = [Ô]Ingrediente Lasanha[Ô]
TreeView1.Nodes.Add , , pai01, pai01
TreeView1.Nodes.Add , , pai02, pai02
TreeView1.Nodes.Add , , pai03, pai03

TreeView1.Nodes.Add pai01, tvwChild, [Ô]2 Ovo[Ô], [Ô]2 Ovo[Ô]
TreeView1.Nodes.Add pai01, tvwChild, [Ô]Açucar[Ô], [Ô]Açucar[Ô]
TreeView1.Nodes.Add pai01, tvwChild, [Ô]Trigo[Ô], [Ô]Trigo[Ô]

TreeView1.Nodes.Add pai02, tvwChild, [Ô]1 Ovo[Ô], [Ô]1 Ovo[Ô]
TreeView1.Nodes.Add pai02, tvwChild, [Ô]Chocolate[Ô], [Ô]Chocolate[Ô]
TreeView1.Nodes.Add pai02, tvwChild, [Ô]Morango[Ô], [Ô]Morango[Ô]

TreeView1.Nodes.Add pai03, tvwChild, [Ô]Óleo[Ô], [Ô]Óleo[Ô]
TreeView1.Nodes.Add pai03, tvwChild, [Ô]Mussarela[Ô], [Ô]Mussarela[Ô]
TreeView1.Nodes.Add pai03, tvwChild, [Ô]Tempero[Ô], [Ô]Tempero[Ô]
End Sub
GUILHERMEMFA 10/12/2009 09:48:22
#329456
Apenas mudei
pai01 = [Ô]4T-9874[Ô] para
pai01 = [Ô]4D-9874[Ô]
TECLA 10/12/2009 10:35:57
#329460
Realmente, deu erro nas chave [Ô]4D-9874[Ô] e [Ô]4E-9874[Ô].
Segue uma sugestão:

Dim pai01 As String, pai02 As String, pai03 As String

[txt-color=#006400][ô]Tente o seguinte... na linha abaixo retire o [Ô]-[Ô][/txt-color]
pai01 = [Ô]4D9874[Ô]
pai02 = [Ô]Ingrediente Torta[Ô]
pai03 = [Ô]Ingrediente Lasanha[Ô]

[txt-color=#006400][ô]E aqui você acrescenta o [Ô]-[Ô] só para a propriedade TEXT[/txt-color]
TreeView1.Nodes.Add , , pai01, Left(pai01, 2) & [Ô]-[Ô] & Right(pai01, 4)
TreeView1.Nodes.Add , , pai02, pai02
TreeView1.Nodes.Add , , pai03, pai03

TreeView1.Nodes.Add pai01, tvwChild, [Ô]2 Ovo[Ô], [Ô]2 Ovo[Ô]
TreeView1.Nodes.Add pai01, tvwChild, [Ô]Açucar[Ô], [Ô]Açucar[Ô]
TreeView1.Nodes.Add pai01, tvwChild, [Ô]Trigo[Ô], [Ô]Trigo[Ô]

TreeView1.Nodes.Add pai02, tvwChild, [Ô]1 Ovo[Ô], [Ô]1 Ovo[Ô]
TreeView1.Nodes.Add pai02, tvwChild, [Ô]Chocolate[Ô], [Ô]Chocolate[Ô]
TreeView1.Nodes.Add pai02, tvwChild, [Ô]Morango[Ô], [Ô]Morango[Ô]

TreeView1.Nodes.Add pai03, tvwChild, [Ô]Óleo[Ô], [Ô]Óleo[Ô]
TreeView1.Nodes.Add pai03, tvwChild, [Ô]Mussarela[Ô], [Ô]Mussarela[Ô]
TreeView1.Nodes.Add pai03, tvwChild, [Ô]Tempero[Ô], [Ô]Tempero[Ô]
GUILHERMEMFA 10/12/2009 11:07:14
#329465
tipo assim:
Esse foi um exemplo q eu fiz p mostrar de uma maneira simplificada o erro.
A realidade n eh bem essa.
Os nós são obtidos de tabelas que são alimentadas por vários usuários, esses usuários cadastram vários desenhos diáriamente de várias empresas. Esses traços podem estar em qualquer posição do desenho, e os desenhos precisam ser cadastrados exatamente como o cliente nos envia.
Se tiver alguma outra idéia ficarei grato
Tópico encerrado , respostas não são mais permitidas
Voltar