.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:表,财务_费用收支,DataColChanged
详细错误信息:
调用的目标发生了异常。
列“_SortKey”不属于表 财务_费用收支。
Select Case e.DataCol.Name
Case "金额", "往来方式"
Dim dr As DataRow
Dim drs As List(Of DataRow)
dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") '找出上一行
If dr Is Nothing Then '如果没有找到上一行,说明本行就是第一行
e.DataRow("余额") = e.DataRow("金额") - e.DataRow("金额")
dr = e.DataRow
End If
drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey"), "[_SortKey]")
For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
drs(i)("余额") = drs(i - 1)("余额") - drs(i)("金额")
Next
End Select