Foxtable(狐表) → 用户栏目 → 专家坐堂 → 未将对象引用设置到对象的实例


  共有3676人关注过本帖树形打印复制链接

主题：未将对象引用设置到对象的实例
美女呀，离线，留言给我吧！
2327153574
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：20 积分：226 威望：0 精华：0 注册：2015/1/20 11:15:00 		未将对象引用设置到对象的实例  发帖心情 Post By：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
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

请各位大师帮看看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：20 积分：226 威望：0 精华：0 注册：2015/1/20 11:15:00 		  发帖心情 Post By：2019/7/16 21:07:00 [只看该作者]

谢谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04810 秒, 4 次数据查询