- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140195)
-- 发布时间：2019/8/31 13:59:00
-- [求助] 错误
老师，为什么会出现这个，哪儿错了 ？
此主题相关图片如下：捕获.jpg
-- 发布时间：2019/8/31 14:13:00
--
看上面截图，错误所在事件。使用到了空对象，没有进行判断
-- 发布时间：2019/8/31 14:22:00
--
老师，请帮忙看一下，已经排除这个了。可是还是这样的。
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
-- 发布时间：2019/8/31 14:52:00
--
"Remark"表没有事件？
-- 发布时间：2019/8/31 21:04:00
--
以下都没有事件，删除了BIN也不行。
|
"Remark"表没有事件？
全局表有没有事件？ |
-- 发布时间：2019/8/31 22:57:00
--
原因知道了，把这一列移到第三列就可以了。
Dim dr As DataRow = DataTables("Remark").Find("Inner_BatchNo=\'" & e.DataRow("批号") & "\'" ,"sysDate Desc")