学生管理系统-出现问题

      

学生管理系统的调试已经进行了一段时间了，期间出现了很多问题，在这里跟大家分享一下解决的方法···

一、修改学籍信息窗体中记录删除完毕以后报错，错误截图如下：

         

        解决方法：（没有数据了，所以不能正常显示）

            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

三、对象变量错误

       

        这个错误也是我出现最多的错误，一开始因为这个耽误了两天，结果是自己由于粗心把对象名给写错了，这是个非常简单的小问题，但是也是容易犯的错误，大家一定要注意，敲代码的时候一定要细心了。

        更多错误，见下篇博客···