如何在treeview下面添加多个节点[今天没分了请原谅]

Question

我想在VB下面添加一个根节点“职工基本情况”
下面添加四个子节点
分别是“姓名”“性别”“年龄”“民族”
请问这样的代码该怎么写啊
Dim nodX As Node
Dim i As Integer
Dim j As IntegerTreeView1.LineStyle = tvwRootLines
Set nodX = TreeView1.Nodes.Add(, , "r", "职工基本情况")
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "姓名")
Set nodX = TreeView.Nodes.Add(1, tvwChild, , "性别")
Set nodX = TreeView.Nodes.Add(1, tvwChild, , "年龄")
Set nodX = TreeView.Nodes.Add(1, tvwChild, , "民族")结果运行到添加性别的时候就出错了
请各高手指教

Answer 1

Private Sub Form_Load()
   '设置 Treeview 控件属性。
   TreeView1.LineStyle = tvwRootLines  ' Linestyle 1   '添加 Node 对象。
   Dim nodX As Node    '声明 Node 变量。
   '带有文本 'Root' 的第一个节点。
   Set nodX = TreeView1.Nodes.Add(, , "r", "Root")   '下一个节点是节点 1 ("Root") 的子节点。
   Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child1", "Child")End Sub

Answer 2

Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "姓名")
Set nodX = TreeView.Nodes.Add(1, tvwChild, , "性别")
--------------------------
为何前一行是TreeView1，后一行是TreeView？

Answer 3

Set nodX = TreeView1.Nodes.Add(, , "r", "职工基本情况")
Set nodX = TreeView1.Nodes.Add("r",  tvwChild,"name" , "姓名")
Set nodX = TreeView.Nodes.Add("r",  tvwChild, "sex", "性别")
Set nodX = TreeView.Nodes.Add("r",  tvwChild, "age", "年龄")
Set nodX = TreeView.Nodes.Add("r",  tvwChild, "nation", "民族")