打开管理项目中的 项目属性，保存，发生错误：

 

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.5.29.8

错误所在事件：项目,Initialize

详细错误信息：

未将对象引用设置到对象的实例。

 

之后，弹出窗口

此主题相关图片如下：捕获1.png

以前没有发现这个问题，问题就是今天才出现。这个table在打开项目属性前存在

此主题相关图片如下：捕获.png

 Initialize  事件代码如下：

 

If Relations.Contains("P1") = True Then

    Relations.Delete("p1")

End If

If Relations.Contains("P2") =True Then

    Relations.Delete("p2")

End If

Relations.Add("P1",DataTables("流水临时").DataCols("委托编号"),DataTables("样品信息表临时").DataCols("委托编号"),False)

Relations.Add("P2",DataTables("样品信息表临时").DataCols("样品编号"),DataTables("试样信息表临时").DataCols("样品编号"),False)

DataTables("样品信息表临时").DataCols("检测_费用").Expression = "Sum(Child(P2).检测费)"

DataTables("样品信息表临时").DataCols("加工_费用").Expression = "Sum(Child(P2).加工费)"

DataTables("流水临时").DataCols("检测_费用").Expression = "Sum(Child(P1).检测_费用)"

DataTables("流水临时").DataCols("加工_费用").Expression = "Sum(Child(P1).加工_费用)"

 

DataTables("样品信息表临时").DataCols("委托单位").Expression = "Parent(P1).委托单位"

DataTables("试样信息表临时").DataCols("委托单位").Expression = "Parent(P2).委托单位"

 

relations("p1").CascadeDelete = True

relations("p2").CascadeDelete = True

 

For Each tb As DataTable In DataTables

    tb.GlobalHandler.Click = True

Next

请老师指点    谢谢  ！！