添加一个课程没有问题,当继续添加第二个问题时就会出现 13 找了好久终于找到解决的办法了。 如下:
Private Sub cmdModify_Click()
Dim a As Integer
Dim i As Integer
Dim j As Integer
For a = 0 To listAllcourse.ListCount - 1
If listAllcourse.Selected(a) = True Then
listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
'向listselectcourse列表中添加课程
For i = 0 To listSelectcourse.ListCount - 1
For j = i + 1 To listSelectcourse.ListCount
'判断list列表中是否有相同的名称
If listSelectcourse.List(i) = listSelectcourse.List(j) Then
listSelectcourse.RemoveItem j
MsgBox "已添加此课程!", vbOKOnly + vbExclamation, "提示"
Exit Sub
End If
Next j
Next i
End If
Next a
End Sub
这样 就好了