想实现以下功能:新增合同后,同时在租金明细表、租金应缴明细表、租金实缴明细表、保证金信息表中增加相应的行,在合同信息表的DataColChanged事件中加入以下代码:
Select Case e.DataCol.Name
Case "合同编号"
If e.DataRow.IsNull("合同编号") = False Then '如果已经输入合同编号
Dim pr1 As List(Of DataRow) = DataTables("租金明细表").Select("[合同编号] = '" & e.DataRow("合同编号") & "'")
Dim pr2 As List(Of DataRow) = DataTables("租金应缴明细表").Select("[合同编号] = '" & e.DataRow("合同编号") & "'")
Dim pr3 As List(Of DataRow) = DataTables("租金实缴明细表").Select("[合同编号] = '" & e.DataRow("合同编号") & "'")
Dim pr4 As List(Of DataRow) = DataTables("保证金信息表").Select("[合同编号] = '" & e.DataRow("合同编号") & "'")
If pr1.Count = 0 Then '而且无租金明细
Dim dr1 As DataRow = DataTables("租金明细表").AddNew()
dr1("合同编号") = e.DataRow("合同编号")
End If
If pr2.Count = 0 Then '而且无租金应缴明细
Dim dr2 As DataRow = DataTables("租金应缴明细表").AddNew()
dr2("合同编号") = e.DataRow("合同编号")
End If
If pr3.Count = 0 Then '而且无租金实缴明细
Dim dr3 As DataRow = DataTables("租金实缴明细表").AddNew()
dr3("合同编号") = e.DataRow("合同编号")
End If
If pr4.Count = 0 Then '而且无保证金明细
Dim dr4 As DataRow = DataTables("保证金信息表").AddNew()
dr4("合同编号") = e.DataRow("合同编号")
End If
End If
End Select
报错内容如下:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2019.7.8.1
错误所在事件:表,租金明细表,DataColChanged
详细错误信息:
调用的目标发生了异常。
未将对象引用设置到对象的实例。
。。。。。。
同时增加行的租金明细表、租金应缴明细表、租金实缴明细表、保证金信息表的都报错,请问是什么原因?
[此贴子已经被作者于2019/8/27 17:02:48编辑过]