老师，要的结果是购piao金额减中奖金额减付款金额等于欠款金额。
Select Case e.DataCol.Name
Case "中奖金额","购piao金额"，“盈亏”
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("购piao金额")
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)("中奖金额") - drs(i)("购piao金额")
Next
End Select
此主题相关图片如下：image 2.png
加好友 
发短信
Post By：2021/11/3 14:50:00 [显示全部帖子]
