请问一下:
我做了一个vb音像销售系统,当我打开一个界面时,接着再打开一个界面,然后我再打开原来我已经打开的那个界面,程序就报错.

它出现的提示筐是:运行时错误  '35602' 集合中的关键字不唯一
Private Sub Form_Activate()
Dim tu As String
  If i = 0 Then
    Data1.Refresh
    Me.Data1.Recordset.MoveFirst
     Dim temps As Node
    With Data1.Recordset
       Do While Not .EOF
          tu = .Fields("tupian")
          If IsNull(.Fields("relation")) Then

              Set a = TreeView1.Nodes.Add(, , .Fields("key"), .Fields("name"), tu, tu)  (我调试时它跳到了这句话上面)

          Else
              rel = .Fields("relation")
              Set a = TreeView1.Nodes.Add(rel, 4, .Fields("key"), .Fields("name"), tu, tu)
          End If
          .MoveNext
          j = j + 1
       Loop
    End With
   i = i + 1
   TreeView1.Nodes(1).Expanded = True
 End If
谁能帮我解决一下啊
好头疼的一个问题啊
谢谢了!~~

Form_Activate 改成 Form_Load

Form_Activate 是窗体被激活时触发，第一次打开窗体时会运行，切到其它窗体再切换回来又会执行。

而你的TreeView没有清空又执行了一次添加操作，因此产生“集合中的关键字不唯一”的错误。