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

最新推荐文章于 2023-09-21 21:09:09 发布

原创最新推荐文章于 2023-09-21 21:09:09 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

—学生管理信息系统专栏收录该内容

6 篇文章

订阅专栏

本文档详细解析了VBA编程中常见的三个错误：实时错误94无效使用NULL、实时错误-2147217885（80040e23）行句柄引用了一个已被删除的行或标识为删除的行、编译错误：forcontrol控件变量已经在使用，并提供了具体的代码示例与解决办法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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