问题一 :实时错误94 无效使用NULL
代码如下:
Else
txtClassno.Text = mrc.Fields(0)
ComboGrade.Text = mrc.Fields(1)
txtDirector.Text = mrc.Fields(2)
txtClassroom.Text = mrc.Fields(3)
End If
改写后的代码:
Else
txtClassno.Text = mrc.Fields(0)
ComboGrade.Text = mrc.Fields(1)
txtDirector.Text = mrc.Fields(2)& “”
txtClassroom.Text = mrc.Fields (3) & “”
End If
解决方法 :
可以在后面加& “” 直接把一个空值的字符串赋值给前面的代码。
问题二:实时错误-2147217885(80040e23)行句柄引用了一个已被删除的行或标识为删除的行
错误之处:
在点击删除记录时就会报这个错!!
我在cmdDelete_Click 事件中不合适的位置添加了mrc.Delete语句,导致更新之后原纪录被删除,出现错误
解决办法:
删除mrc.Delete语句
错误三:编译错误: for control 控件变量已经在使用
For selectcourse = 0 To Listallcourse.ListCount - 1
If Listallcourse.Selected(selectcourse) = True Then
Listselectcourse.AddItem Listallcourse.List(Listallcourse.ListIndex)
'向listelectcourse列表中添加课程
For j = i + 1 To Listselectcourse.ListCount - 1
For j = i + 1 To Listselectcourse.ListCount
'判断在list列表中是否有相同名称
If Listselectcourse.List(i) = Listselectcourse.List(j) Then
Listselectcourse.RemoveItem j
MsgBox "以添加此课程!", vbOKOnly + vbExclamation, "提示"
Exit Sub
End If
Next j
报错原因:
循环变量已经在使用的意思···这里的两个循环变量都是 j,而且是镶嵌在一起的,所以会报错 。
解决方法:
将第一个报错的 “ j ” 给为 “i”就可以了。