以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  未将对象引用设置到对象的实例  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137830)
--  作者：2327153574
--  发布时间：2019/7/16 19:53:00
--  未将对象引用设置到对象的实例
Select Case e.DataCol.Name
    Case "缴费号","实缴金额","入账日期","入账凭证号","类型"
        If e.NewValue IsNot Nothing Then
            If e.NewValue <> e.OldValue
                Dim cn1 As Double
                Dim cn2 As Double
                Dim Filter1 As String = "[缴费号] = \'" & e.NewValue & "\'"
                Dim drs1 As List(Of DataRow) = DataTables("费用实缴明细表").Select(Filter1)
                For Each dr1 As DataRow In drs1
                    cn1=cn1+dr1("实缴金额")
                Next
                Dim Filter2 As String = "[缴费号] = \'" & e.OldValue & "\'"
                Dim drs2 As List(Of DataRow) = DataTables("费用实缴明细表").Select(Filter2)
                For Each dr2 As DataRow In drs2
                    cn2=cn2+dr2("实缴金额")
                Next
                
                Dim pr1 As DataRow
                pr1 = DataTables("费用应缴明细表").Find("缴费号 = \'" & e.NewValue & "\'")
                pr1("实缴金额") = cn1
                Dim pr2 As DataRow
                pr2 = DataTables("费用应缴明细表").Find("缴费号 = \'" & e.OldValue & "\'")
                pr2("实缴金额") = cn2
            End If
        Else 

        End If
End Select


新增行以后，填入数据的时候出现以下错误
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.7.8.1
错误所在事件：表，费用实缴明细表，DataColChanged
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

请各位大师帮看看
--  作者：有点蓝
--  发布时间：2019/7/16 20:51:00
--  
Select Case e.DataCol.Name
    Case "缴费号"
        If e.NewValue > "" Then
            If e.NewValue <> e.OldValue
                Dim Filter1 As String = "[缴费号] = \'" & e.NewValue & "\'"
                Dim pr1 As DataRow
                pr1 = DataTables("费用应缴明细表").Find(Filter1 )
                If pr1 IsNot Nothing
                    pr1("实缴金额") = DataTables("费用实缴明细表").Compute("sum(实缴金额)",Filter1)
                End If
                
                Dim Filter2 As String = "[缴费号] = \'" & e.OldValue & "\'"
                Dim pr2 As DataRow
                pr2 = DataTables("费用应缴明细表").Find(Filter2 )
                If pr2 IsNot Nothing
                    pr2("实缴金额") = DataTables("费用实缴明细表").Compute("sum(实缴金额)",Filter2)
                End If
            End If
        Else
        End If
End Select
--  作者：2327153574
--  发布时间：2019/7/16 21:07:00
--  
谢谢