主题：关于DataColChanged的问题

想实现以下功能：新增合同后,同时在租金明细表、租金应缴明细表、租金实缴明细表、保证金信息表中增加相应的行，在合同信息表的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
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

 。。。。。。

在租金明细表、保证金信息表中，DataColChanged 中只有以下代码：

If e.DataCol.name = "审核" Then
    Dim pr As DataRow = e.DataRow.GetParentRow("合同信息表")
    If e.DataRow("审核") = False Then
        pr("审核") = False
    End If
End If

if pr isnot nothing then
    If e.DataRow("审核") = False Then
        pr("审核") = False
    End If

end if
End If