以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  未将对象引用设置到对象的实例  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=140598)
--  作者：elfing
--  发布时间：2019/9/9 16:25:00
--  未将对象引用设置到对象的实例
Dim nms As New List(Of String)\'重置累计列
Dim drs As New List(of DataRow)
With DataTables("应收应付")
    nms = .GetValues("单位")
    For Each nm As String In nms \'找出每个单位的第一行数据, 添加到集合drs中
        drs.Add(.Find("单位 = \'" & nm & "\'", "[_SortKey]"))
    Next
    For Each dr As DataRow In drs
        .DataCols("应收增加").RaiseDataColChanged(dr)
        .DataCols("应付增加").RaiseDataColChanged(dr)
        .DataCols("承兑增加").RaiseDataColChanged(dr)
    Next
End With

以上为表事件里的Afterload代码
自己用SQL语句设计了一个加载树窗口，每次打开窗口加载数据后就会弹出错误窗口，提示：
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.8.19.1
错误所在事件：应收应付,AfterLoad
详细错误信息：
未将对象引用设置到对象的实例。
--  作者：有点蓝
--  发布时间：2019/9/9 16:33:00
--  
For Each nm As String In nms \'找出每个单位的第一行数据, 添加到集合drs中
dim dr2 as datarow = .Find("单位 = \'" & nm & "\'", "[_SortKey]")
if dr2 isnot nothing then        drs.Add()
    Next