Question

VB中,显示 实时错误‘35602’集合中的关键字不唯一 错误,如何改

Private Sub UserForm_Initialize()
Dim i As Integer, j As Integer
Call 年级班级
'清除原有的节点
TreeView1.Nodes.Clear
'设置TreeView1控件的属性
TreeView1.LineStyle = tvwRootLines
TreeView1.Style = tvwTreelinesPlusMinusText
TreeView1.LabelEdit = tvwManual
'添加一级节点(年级)
For j = 1 To m
Set nodx = TreeView1.Nodes.Add(, , Class(j), Class(j))
Next j
'添加二级节点(班级)
For j = 1 To m
For i = 1 To n(j)
Set nodx = TreeView1.Nodes.Add(Class(j), tvwChild, Class(j) & Space(1) & ClassName(j, i), ClassName(j, i))
Next i
Next j
End Sub

Answer 1

Set nodx = TreeView1.Nodes.Add(Class(j), tvwChild, Class(j) & Space(1) & ClassName(j, i), Class(j) & Space(1) & ClassName(j, i))

关键字也要年级加班级才能保持唯一性。

Answer 2

你好,你说的情况这个产品是需要到大型的药店做购买使用,连续使用半个月后复查一下,没有效果的话需要换药做治疗.

你们这种药是怎么卖的啊