以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 未将对象引用设置到对象的实例 (http://foxtable.net/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 -- 谢谢 |