在学生系统中，添加课程的时候可能会出现以下的情况

       这种情况让用户体验者看着可能也会很不舒服，所以要想法来进行一下设置，来更改一下现状，通过更改关于这个list文本框的属性或者代码来实现想要实现的业务。通过反复的调整和搜索终于也找到了解决的方法，那就是添加一句：listallcourse.clear即可解决问题。

源代码：

Private Sub cmdSet_Click()

     '控件有效
     listallCourse.Enabled = True
     listSelectCourse.Enabled = True
     cmdModify.Enabled = True
     '查询数据
     txtSQL = "select*from course_info"
     Set mrc = ExecuteSQL(txtSQL, Msgtext)
     '是否到最后一条记录
     If mrc.EOF = False Then
         '添加内容到列表框
         listallCourse.AddItem mrc.Fields(1)
         mrc.MoveNext
     End If
     mrc.Close
     Flagset = True

End Sub

更改后的代码：

Private Sub cmdSet_Click()
    listallCourse.Clear
     '????????Ч
     listallCourse.Enabled = True
     listSelectCourse.Enabled = True
     cmdModify.Enabled = True
     '???????
     txtSQL = "select*from course_info"
     Set mrc = ExecuteSQL(txtSQL, Msgtext)
     '?ж?????????????
     If mrc.EOF = False Then
         '?????????б????
         listallCourse.AddItem mrc.Fields(1)
         mrc.MoveNext
     End If
     mrc.Close
     Flagset = True

End Sub

        任何问题的出现都是可以解决的，这几天遇到的问题很多，有老问题，有新问题，但都是可以解决的问题，当然在解决的过程中收获也很多，有些问题的出现实则也是有规律可寻得，那么就要掌握这个规律，然后想法去跳过这个错误。