主题：这种“出错”提示是什么意思？

代码：
 

For Each dr As Datarow In DataTables("优生统计").DataRows

    Dim dr1 As DataRow = DataTables("教师安排").Find("[班级] = " & dr1("班级"))

    If dr1 IsNot Nothing Then

        dr("总分_班主任")= dr1("总分")

        dr("语文_教师")= dr1("语文")

        dr("数学_教师")= dr1("数学")

        dr("英语_教师")= dr1("英语")

        dr("物理_教师")= dr1("物理")

        dr("化学_教师")= dr1("化学")

        dr("生物_教师")= dr1("生物")

    End If

next

执行后，提示如下：

此主题相关图片如下：335.bmp

呵呵，粗心了