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
详细错误信息:
未将对象引用设置到对象的实例。