【学生】ListAllcourse禁止重复的用法

问题：

在添加年级课程的时候，会出现重复添加的情况。

解决方法：

点击设置课程的时候直接清除之前的记录页。

Private Sub cmdset_Click()
    
    Dim mrc As ADODB.Recordset
    Dim txtSQL As String
    Dim MsgText As String
    
    '清空控件中现有的记录
    ListAllcourse.Clear
    
    '使各个控件有效
    ListAllcourse.Enabled = True
    Listselectcourse.Enabled = True
    cmdModify.Enabled = True
    
    '查询数据
    txtSQL = "select * from course_Info"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    '判断是否到最后一条记录
    While (mrc.EOF = False)
        '添加内容到列表框中
        ListAllcourse.AddItem mrc.Fields(1)
        mrc.MoveNext
    Wend
    mrc.Close
    flagSet = True

End Sub

 直接设置课程不可以重复添加！

'设置课程不能重复添加！
Private Sub cmdAdd_Click()
    '判断是否有内容被选中
    If ListAllcourse.ListIndex <> -1 Then
'        Listselectcourse.AddItem ListAllcourse.list(ListAllcourse.ListIndex)
        Call addlist(Listselectcourse, ListAllcourse.list(ListAllcourse.ListIndex))
    End If
End Sub

拓展：

有的小伙伴说可以直接设置这两个按钮只能点击一次，但是我现在还没有实现。欢迎小伙伴们集思广益！