Question

用VB编写的树状结构程序无法添加结点

下面是我编写的代码。但是我的程序有点问题啊，在我按下添加的按钮之后不能将数据添加到左侧的树状结构当中去，而且还显示了 实时错误‘35602’集合中的关键字不唯一的错误，我想问一下大家要怎么改啊。下面是我的代码

Option Explicit
Dim nodeDep As Node '定义节点变量

Private Sub Form_Load() '初始化程序
tvwDep.Style = tvwTreelinesText
Set nodeDep = tvwDep.Nodes.Add(, , "部门名称", "部门名称", 0) '添加根节点
End Sub

Private Sub cmdAdd_Click()
Dim strDep As String '定义部门名称变量

If txtDep.Text = "" Then '检查输入合法性
MsgBox "请输入部门名称！"
txtDep.SetFocus
Exit Sub
Else
strDep = txtDep.Text
Set nodeDep = tvwDep.Nodes.Add("部门名称", tvwChild, strDep, strDep, 0) '添加部门节点

End If
txtDep.Text = ""
End Sub

Private Sub cmdDel_Click()
If tvwDep.SelectedItem.Index < 1 Then
MsgBox "请选择要删除的节点！" '提示用户选择要删除的成员
Exit Sub
Else
tvwDep.Nodes.Remove (tvwDep.SelectedItem.Index) '删除选择的成员
End If
End Sub

Answer 1

Private Sub Form_Load()
tvwDep.LineStyle = tvwRootLines''''''''''''''''''''''''''''''''''''''''

Set nodeDep = tvwDep.Nodes.Add(, , "部门名称", "部门名称", 0) '添加根节点
End Sub

追问

能具体的讲一下哪里有问题吗？我看不出修改了哪里，还有为什么要这样修改啊。我之前的为什么不可以啊。麻烦你啊。我刚入门不是很懂啊。

追答

tvwDep.LineStyle = tvwRootLines''''''''''''''''''''''''''''''''''''''''