【学生】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
     
    
  
 

拓展：

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

文章来源: blog.csdn.net，作者：张艳伟_Laura，版权归原作者所有，如需转载，请联系作者。

原文链接：blog.csdn.net/Laura__zhang/article/details/99709107