treeview问题：如何在子节点下在增加子节点？

Question

如何在子节点下再增加子节点？

Answer 1

首先,你要知道你要在哪个子节点下点加子节点,主要是知道它的index之后这样:TreeView1.Nodes.Add theIndex, tvwChild, , ""  'theIndex就是你原来的那个子节点

Answer 2

大虾，可否把在treeview中增加节点的详细代码给出，小弟不胜感激！加分！

Answer 3

TreeView1.Nodes.Add treeview1.nodes(k).index, tvwChild, , "子节点X"
这个treeview1.nodes(k)就是你要在其下面加子节点的子节点: )

Answer 4

Private Sub Command1_Click()
  If Text1.Text <> "" And Text2.Text <> "" Then '&sup2;&raquo;&Ocirc;&Ecirc;&ETH;í&frac12;¨&Aacute;&cent;&Aacute;&atilde;×&Ouml;&frac12;&Uacute;&micro;&Auml;&cedil;&cedil;&frac12;&Uacute;&micro;&atilde;&ordm;&Iacute;×&Oacute;&frac12;&Uacute;&micro;&atilde;
    CunZai = False
    J = TreeView1.Nodes.Count
    For i = 1 To TreeView1.Nodes.Count '&frac14;ì&sup2;é&ETH;&Acirc;&Ecirc;&auml;&Egrave;&euml;&micro;&Auml;&cedil;&cedil;&frac12;&Uacute;&micro;&atilde;&Atilde;&ucirc;&sup3;&AElig;&Ecirc;&Ccedil;·&ntilde;&acute;&aelig;&Ocirc;&Uacute;
      If TreeView1.SelectedItem.Children > 0 Then
        If Text1.Text = TreeView1.Nodes(i).Text Then CunZai = True
        End If
    Next i
    If CunZai = True Then '&Egrave;&ocirc;&acute;&aelig;&Ocirc;&Uacute;, &Ocirc;ò&Ocirc;&Uacute;&cedil;&cedil;&frac12;&Uacute;&micro;&atilde;&Iuml;&Acirc;&frac12;¨&Aacute;&cent;×&Oacute;&frac12;&Uacute;&micro;&atilde;
      Set nodx = TreeView1.Nodes.Add(Text1.Text, tvwChild, "child" & J, Text2.Text, 3)
  Else '&Egrave;&ocirc;&sup2;&raquo;&acute;&aelig;&Ocirc;&Uacute;,&Ocirc;ò&frac12;¨&Aacute;&cent;&cedil;&cedil;&frac12;&Uacute;&micro;&atilde;&ordm;&Iacute;×&Oacute;&frac12;&Uacute;&micro;&atilde;
      Set nodx = TreeView1.Nodes.Add(, , Text1.Text, Text1.Text, 1)
    Set nodx = TreeView1.Nodes.Add(Text1.Text, tvwChild, "child" & J, Text2.Text, 3)
    End If
    TreeView1.Refresh
  ElseIf Text1.Text = "" Then MsgBox "&Ccedil;&euml;&Ecirc;&auml;&Egrave;&euml;&cedil;&cedil;&frac12;&Uacute;&micro;&atilde;&Atilde;&ucirc;&sup3;&AElig;!", vbInformation, "&frac34;&macr;&cedil;&aelig;&pound;&iexcl;"
   '&Iuml;&micro;&Iacute;&sup3;&Igrave;á&Ecirc;&frac34;
  ElseIf Text1.Text = "" Then MsgBox "&Ccedil;&euml;&Ecirc;&auml;&Egrave;&euml;×&Oacute;&frac12;&Uacute;&micro;&atilde;&Atilde;&ucirc;&sup3;&AElig;!", vbInformation, "&frac34;&macr;&cedil;&aelig;&pound;&iexcl;"
  End If
End Sub

Answer 5

Private Sub Command1_Click()
  If Text1.Text <> "" And Text2.Text <> "" Then '判断父节点和子节点
    CunZai = False
    J = TreeView1.Nodes.Count
    For i = 1 To TreeView1.Nodes.Count '检查新输入的父节点是否存在
      If TreeView1.SelectedItem.Children > 0 Then
        If Text1.Text = TreeView1.Nodes(i).Text Then CunZai = True
        End If
    Next i
    If CunZai = True Then 若存在，则建立子节点      Set nodx = TreeView1.Nodes.Add(Text1.Text, tvwChild, "child" & J, Text2.Text, 3)
  Else ‘若不存在，建立父节点和子节点
      Set nodx = TreeView1.Nodes.Add(, , Text1.Text, Text1.Text, 1)
    Set nodx = TreeView1.Nodes.Add(Text1.Text, tvwChild, "child" & J, Text2.Text, 3)
    End If
    TreeView1.Refresh
  ElseIf Text1.Text = "" Then MsgBox "请输入父节点名称!", vbInformation, 警告&iexcl;"
   '&Iuml;&micro;&Iacute;&sup3;&Igrave;á&Ecirc;&frac34;
  ElseIf Text1.Text = "" Then MsgBox "!请输入父节点名称", vbInformation, 警告&pound;&iexcl;"
  End If
End Sub