主题：[求助] 错误

老师，为什么会出现这个，哪儿错了 ？
此主题相关图片如下：捕获.jpg

看上面截图，错误所在事件。使用到了空对象，没有进行判断

老师，请帮忙看一下，已经排除这个了。可是还是这样的。

 

 

Dim dr As DataRow = DataTables("Remark").Find("Inner_BatchNo='" & e.DataRow("批号") & "'" ,"sysDate Desc")
If e.DataRow("PlannerSays") IsNot Nothing Then
    If e.DataRow.OriginalValue("PlannerSays") <> e.DataRow("PlannerSays") Then
        If dr Is Nothing
            dr = DataTables("Remark").AddNew
            dr("sysDate") = Date.Now
            dr("Inner_BatchNo") = e.DataRow("批号")
            dr("PartNo") = e.DataRow("PartNo")
            dr("PlannerSays") = e.DataRow("PlannerSays")
        Else
            If dr("PlannerSays") <> e.DataRow("PlannerSays") Then
                Dim tp As TimeSpan = Date.Now - cdate(dr("sysDate"))
                If tp.TotalHours > 1 Then
                    dr = DataTables("Remark").AddNew
                    dr("sysDate") = Date.Now
                    dr("Inner_BatchNo") = e.DataRow("批号")
                    dr("PartNo") = e.DataRow("PartNo")
                    dr("PlannerSays") = e.DataRow("PlannerSays")
                Else
                    dr("PlannerSays") = e.DataRow("PlannerSays")
                End If
            End If
        End If
    End If
End If
dr.Save

"Remark"表没有事件？

以下都没有事件，删除了BIN也不行。

 

"Remark"表没有事件？ 全局表有没有事件？

原因知道了，把这一列移到第三列就可以了。

 

Dim dr As DataRow = DataTables("Remark").Find("Inner_BatchNo='" & e.DataRow("批号") & "'" ,"sysDate Desc")