学生管理信息系统之实时错误94 无效使用NULL

 

问题一 :实时错误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”就可以了。