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