| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- BeforeAddDataRow事件报错 (http://foxtable.com/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 |