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
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。
请各位大师帮看看
加好友 
发短信
Post By：2019/7/16 19:53:00 [显示全部帖子]
