学生管理系统的调试已经进行了一段时间了，期间出现了很多问题，在这里跟大家分享一下解决的方法···
一、修改学籍信息窗体中记录删除完毕以后报错，错误截图如下：
解决方法：（没有数据了，所以不能正常显示）
txtSQL = "select from student_info"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF And mrc.BOF Then
MsgBox "数据清空，请重新添加信息！", vbOKOnly + vbExclamation, "警告"
mrc.Close
Else
Call viewData
End If
二、设置年级课程时出现错误，已选课程可重复添加
如图，可无限添加已添加课程，改变方法如下，定义一个过程
Private Function Addlist(list As ListBox, str As String) As Boolean
Dim i As Long
For i = 0 To list.ListCount - 1
If list.list(i) = str Then
Exit Function
End If
Next
list.AddItem str
Addlist = True
End Function
然后，引用到cmdAdd里边
Private Sub cmdAdd_Click()
If listAllcourse.ListIndex <> -1 Then
Call Addlist(listSelectcourse, listAllcourse.list(listAllcourse.ListIndex))
End If
End Sub
三、对象变量错误
这个错误也是我出现最多的错误，一开始因为这个耽误了两天，结果是自己由于粗心把对象名给写错了，这是个非常简单的小问题，但是也是容易犯的错误，大家一定要注意，敲代码的时候一定要细心了。
更多错误，见下篇博客···