Hi i have this code for treeview, and when i run the code i have the error:
"Type mismatch" in the line marked in bold
Something wrong in code?
Thanks
"Type mismatch" in the line marked in bold
Code:
Private nNodo As Node
Private Sub carregartreeview()
Set nNodo = TreeView1.Nodes.Add(, , "R", "Tabela I")
Set nNodo = TreeView1.Nodes.Add("R", tvwChild, "R1", "Divisão I")
Set nNodo = TreeView1.Nodes.Add("R1", tvwChild, "R2", "Grupo 1")
Set nNodo = TreeView1.Nodes.Add("R2", tvwChild, "", "Agricultura,Silvicultura e Pecuária")
Set nNodo = TreeView1.Nodes.Add("R1", tvwChild, "R3", "Grupo 2")
Set nNodo = TreeView1.Nodes.Add("R3", tvwChild, "", "Pescas")
Set nNodo = TreeView1.Nodes.Add("R", tvwChild, "T1", "Divisão II")
Set nNodo = TreeView1.Nodes.Add("T1", tvwChild, "", "Indústrias Extractivas")
Set nNodo = TreeView1.Nodes.Add("R", tvwChild, "M1", "Divisão III")
Set nNodo = TreeView1.Nodes.Add("M1", tvwChild, "M2", "Grupo 1") '10
Set nNodo = TreeView1.Nodes.Add("M2", tvwChild, "", "De Alimentação,Bebidas e Tabaco")
Set nNodo = TreeView1.Nodes.Add("M1", tvwChild, "M3", "Grupo 2") '12
Set nNodo = TreeView1.Nodes.Add("M3", tvwChild, "", "Têxteis")
Set nNodo = TreeView1.Nodes.Add("M1", tvwChild, "M4", "Grupo 3") '14
Set nNodo = TreeView1.Nodes.Add("M4", tvwChild, "", "Calçado, vestuário e têxteis em obra")
Set nNodo = TreeView1.Nodes.Add("M1", tvwChild, "M5", "Grupo 4") '16
Set nNodo = TreeView1.Nodes.Add("M5", tvwChild, "", "Madeira e Cortiça")
Set nNodo = TreeView1.Nodes.Add("M1", tvwChild, "M6", "Grupo 5") '18
Set nNodo = TreeView1.Nodes.Add("M6", tvwChild, "", "Indústrias do Papel e Artigos de Papel")
Set nNodo = TreeView1.Nodes.Add("M1", tvwChild, "M7", "Grupo 6") '20
Set nNodo = TreeView1.Nodes.Add("M7", tvwChild, "", "Tipografia, editoriais e indústrias conexas")
Set nNodo = TreeView1.Nodes.Add("M1", tvwChild, "M8", "Grupo 7") '22
Set nNodo = TreeView1.Nodes.Add("M8", tvwChild, "", "Indústrias de curtumes e de artigos de couro e pele (excepto calçado e artigos de vestuário)")
Set nNodo = TreeView1.Nodes.Add("M1", tvwChild, "M9", "Grupo 8") '24
Set nNodo = TreeView1.Nodes.Add("M9", tvwChild, "", "Indústrias da Borracha")
Set nNodo = TreeView1.Nodes.Add("M1", tvwChild, "M10", "Grupo 9") '26
Set nNodo = TreeView1.Nodes.Add("M10", tvwChild, "", "Indústrias Químicas")
Set nNodo = TreeView1.Nodes.Add("M1", tvwChild, "M11", "Grupo 10") '28
Set nNodo = TreeView1.Nodes.Add("M11", tvwChild, "", "Indústrias dos produtos minerais não metálicos")
Set nNodo = TreeView1.Nodes.Add("M1", tvwChild, "M12", "Grupo 11") '30
Set nNodo = TreeView1.Nodes.Add("M12", tvwChild, "", "Indústrias metalúrgicas, metalomecânicas e de material eléctrico")
Set nNodo = TreeView1.Nodes.Add("M1", tvwChild, "M13", "Grupo 11") '32
Set nNodo = TreeView1.Nodes.Add("M13", tvwChild, "", "Indústrias transformadoras diversas")
Set nNodo = TreeView1.Nodes.Add("R", tvwChild, "A1", "Divisão IV") '34
Set nNodo = TreeView1.Nodes.Add("A1", tvwChild, "", "Construção Civil e Obras Públicas") '35
Set nNodo = TreeView1.Nodes.Add("R", tvwChild, "B1", "Divisão V") '36
Set nNodo = TreeView1.Nodes.Add("B1", tvwChild, "B2", "Grupo 1") '37
Set nNodo = TreeView1.Nodes.Add("B2", tvwChild, "", "Produção, transporte e distribuição de energia eléctrica")
Set nNodo = TreeView1.Nodes.Add("B1", tvwChild, "B3", "Grupo 2") '39
Set nNodo = TreeView1.Nodes.Add("B3", tvwChild, "", "Produção e Distribuição de Gás")
Set nNodo = TreeView1.Nodes.Add("B1", tvwChild, "B4", "Grupo 3") '41
Set nNodo = TreeView1.Nodes.Add("B4", tvwChild, "", "Captação e Distribuição de Água")
Set nNodo = TreeView1.Nodes.Add("R", tvwChild, "C1", "Divisão VI") '43
Set nNodo = TreeView1.Nodes.Add("C1", tvwChild, "C2", "Grupo 1") '44
Set nNodo = TreeView1.Nodes.Add("C2", tvwChild, "", "Transportes")
Set nNodo = TreeView1.Nodes.Add("C1", tvwChild, "C3", "Grupo 2") '46
Set nNodo = TreeView1.Nodes.Add("C3", tvwChild, "", "Comunicação telefónicas, telegráficas e radiotelegráficas")
Set nNodo = TreeView1.Nodes.Add("R", tvwChild, "D1", "Divisão VII") '48
Set nNodo = TreeView1.Nodes.Add("D1", tvwChild, "D2", "Grupo 1") '49
Set nNodo = TreeView1.Nodes.Add("D2", tvwChild, "", "Serviços de saúde com ou sem internamento")
Set nNodo = TreeView1.Nodes.Add("D1", tvwChild, "D3", "Grupo 2") '51
Set nNodo = TreeView1.Nodes.Add("D3", tvwChild, "", "Serviços recriativos")
Set nNodo = TreeView1.Nodes.Add("D1", tvwChild, "D4", "Grupo 3") '53
Set nNodo = TreeView1.Nodes.Add("D4", tvwChild, "", "Hotéis, restaurantes, cafés e actividades similares")
Set nNodo = TreeView1.Nodes.Add("D1", tvwChild, "D5", "Grupo 4") '55
Set nNodo = TreeView1.Nodes.Add("D5", tvwChild, "", "Serviços de higiene e de estética")
Set nNodo = TreeView1.Nodes.Add(, , "E", "Tabela II") '57
Set nNodo = TreeView1.Nodes.Add("E", tvwChild, "E1", "Divisão I") '58
Set nNodo = TreeView1.Nodes.Add("E1", tvwChild, "E2", "Grupo 1") '59
Set nNodo = TreeView1.Nodes.Add("E2", tvwChild, "", "Imóveis") '60
Set nNodo = TreeView1.Nodes.Add("E1", tvwChild, "E3", "Grupo 2") '61
Set nNodo = TreeView1.Nodes.Add("E3", tvwChild, "", "Instalações")
Set nNodo = TreeView1.Nodes.Add("E1", tvwChild, "E4", "Grupo 3") '63
Set nNodo = TreeView1.Nodes.Add("E4", tvwChild, "", "Máquinas,Aparelhos e Ferramentas")
Set nNodo = TreeView1.Nodes.Add("E1", tvwChild, "E5", "Grupo 4") '65
Set nNodo = TreeView1.Nodes.Add("E5", tvwChild, "", "Material Rolante ou de Transporte")
Set nNodo = TreeView1.Nodes.Add("E1", tvwChild, "E6", "Grupo 5") '67
Set nNodo = TreeView1.Nodes.Add("E6", tvwChild, "", "Material Diverso")
Set nNodo = TreeView1.Nodes.Add("E", tvwChild, "F1", "Divisão II") '69
Set nNodo = TreeView1.Nodes.Add("F1", tvwChild, "", "Activo Incorpóreo") '70
End SubThanks