学生管理系统的调试已经进行了一段时间了,期间出现了很多问题,在这里跟大家分享一下解决的方法···
一、修改学籍信息窗体中记录删除完毕以后报错,错误截图如下:
解决方法:(没有数据了,所以不能正常显示)
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
三、对象变量错误
这个错误也是我出现最多的错误,一开始因为这个耽误了两天,结果是自己由于粗心把对象名给写错了,这是个非常简单的小问题,但是也是容易犯的错误,大家一定要注意,敲代码的时候一定要细心了。
更多错误,见下篇博客···