学生信息管理系统---修改课程篇

修改课程重复问题

在设置课程的时候，当已经选择了一个科目的时候，再继续添加的话，依然可以多次添加同一科目，这样的系统对于用户来使用的话是非常不便利的，那怎么才能不出现这种问题呢？

代码如下：

Private Sub cmdAdd_Click()
Dim i As Integer
Dim n
For i = 0 To listSelectcourse.ListCount - 1
n = (listSelectcourse.List(i))
Next
If listAllcourse.ListIndex <> -1 Then
If Trim(listAllcourse.List(listAllcourse.ListIndex)) = Trim(n) Then
MsgBox “???γ?”, 48, “???”
Else
listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
End If
End If
End Sub

此段代码还有待完善，请留下您宝贵的指导，方便我们一起成长！