Foxtable(狐表)用户栏目专家坐堂 → BeforeAddDataRow事件报错


  共有2017人关注过本帖树形打印复制链接

主题:BeforeAddDataRow事件报错

帅哥哟,离线,有人找我吗?
ljh29206
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1368 积分:12189 威望:0 精华:0 注册:2012/3/5 11:32:00
BeforeAddDataRow事件报错  发帖心情 Post By:2015/12/15 10:17:00 [只看该作者]


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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/12/15 10:20:00 [只看该作者]

判断一下是否增加成功

 

Dim drnew As DataRow = dt2.AddNew()

If drnew IsNot Nothing Then

 

End If


 回到顶部