专家坐堂-请问下这代码为何报错呢？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.name = "五十米跑值"

If e.DataRow("五十米跑值") < 0 OrElse e.DataRow("五十米跑值") > 10

MessageBox.show("对不起,实测数据不合法,请重新输入!")

e.DataRow("五十米跑值") = Nothing

Return

End If

If e.DataCol.name = "年级" OrElse e.DataCol.name = "性别" OrElse e.DataCol.name = "五十米跑值" Then

If e.DataRow.isnull("年级") = False And e.DataRow.isnull("性别") = False And e.DataRow.isnull("五十米跑值") = False Then

Dim dr As DataRow = DataTables("五十米跑标准").find("年级 =\'" & e.DataRow("年级") & "\' and 性别 =\'" & e.DataRow("性别") & "\' and 下限 <= " & e.DataRow("五十米跑值") & " and 上限 >= " & e.DataRow("五十米跑值"))

If dr IsNot Nothing

e.DataRow("五十米跑等级") = dr("五十米跑等级")

e.DataRow("五十米跑分数") = dr("五十米跑分数")

End If