以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  BeforeAddDataRow事件报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78694)
--  作者：ljh29206
--  发布时间：2015/12/15 10:17:00
--  BeforeAddDataRow事件报错

NetworkAddressChanged

Vars("网络状态") = TryConnectHost("192.168.44.202")

BeforeAddDataRow
If  Vars("网络状态") = False Then  \'如果网络不通,禁止重新加载数据
    e.Cancel = True
End If
代码如上

在项目加载后 会加载 以下代码 ， 

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.11.11.1
错误所在事件：窗口,空滤显示板登陆界面,AfterLoad
详细错误信息：
未将对象引用设置到对象的实例。


Dim DT1 As DataTable = DataTables("生产计划表")
Dim DT2 As DataTable = DataTables("当班计划表")

Dim drs As List(Of DataRow)
drs = dt1.Select("计划日期 = #" & Vars("jhrq") & "# and 班次 = \'" & Vars("jhbc")  & "\'" ,"序号")
\'drs = dt1.Select("计划日期 = #" & d & "#" ,"序号")
If drs.Count > 0 Then
    For Each dr As DataRow In drs
        Dim drnew As DataRow = dt2.AddNew()
        drnew("计划日期") = dr("计划日期")
        drnew("班次") = dr("班次")
        drnew("序号") = dr("序号")
        drnew("车型") = dr("车型")
        drnew("CAP") = dr("CAP")
        drnew("CASE") = dr("CASE")
    Next
end if

不加BeforeAddDataRow代码，运行正常，没找到原因在哪里！   而且 弹出报错后，保存项目都不行！
[此贴子已经被作者于2015/12/15 10:18:33编辑过]
--  作者：大红袍
--  发布时间：2015/12/15 10:20:00
--  

判断一下是否增加成功

 

Dim drnew As DataRow = dt2.AddNew()

If drnew IsNot Nothing Then

 

End If