Errro Treview

[Guilhermemfa]

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

Preciso inserir esse NÓ que esta dando erro, sem alterar muito essa estrutura

Alguém saberia me explicar porque acontece isso?

Grato

Editado Dezembro 15, 2009 por kuroi
Adicionar tag CODE

[kuroi]

qual a diferenca do primero codigo pro segundo??

e qual erro acontece??

[Guilhermemfa]

pai01 = "4T-9874" --> da certo

pai01 = "4D-9874" --> da errado

O caracter "D" gera erro, aparece a mensagem "chave inválida"

[kuroi]

testei aqui e deu esse erro mesmo. muito estranho.

deve ser algum pau do tree-view, tente usar uma otra chave mas se você puser o texto como você quer ele vai aceitar. exemplo:

Dim pai01 As String, pai02 As String, pai03 As String
pai01 = "4T-9874"
pai02 = "Ingrediente Torta"
pai03 = "Ingrediente Lasanha"
TreeView1.Nodes.Add , , pai01, "4D-9874"[/code]