共5 条记录, 每页显示 10 条, 页签: [1]

标题：caseStudy\流水帐.table

1楼

xjtg 发表于：2011/1/12 18:51:00

2011-01-05版内容改了，caseStudy\流水帐.table没改。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:流水账.table

2楼

狐狸爸爸 发表于：2011/1/12 18:58:00

改了的

3楼

xjtg 发表于：2011/1/12 22:34:00

我今天下的没有呀，所以才提出。我在下。我又下了，没变。

Select Case e.DataCol.Name
    Case "收入","支出"
        For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))
            Dim Val1 As Double = e.DataTable.Compute("Sum(收入)","[_SortKey] <= " & dr("_SortKey"))
            Dim Val2 As Double = e.DataTable.Compute("Sum(支出)","[_SortKey] <= " & dr("_SortKey"))
            dr("余额") = Val1 - Val2
        Next
End Select

[此贴子已经被作者于2011-1-12 23:03:39编辑过]

4楼

狐狸爸爸 发表于：2011/1/13 8:17:00

这一段本来就不需要变的。

5楼

xjtg 发表于：2011/1/13 18:52:00

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)("收入") - drs(i)("支出")
        Next
End Select

共5 条记录, 每页显示 10 条, 页签: [1]