流水帐是否可以根据不同的银行卡号来进行对应的收入支出余额的单独计算呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

求助：流水帐是否可以根据不同的银行卡号来进行对应的收入支出余额的单独计算呢？

比如卡号1 收入支出余额

比如卡号2 收入支出余额

此主题相关图片如下：qq图片20161027204404.png

此主题相关图片如下：qq图片20161027204838.png

下面的代码怎么改呢？

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)("支出")

End Select

[此贴子已经被作者于2016/10/27 20:49:06编辑过]

Select Case e.DataCol.Name

Case "收入","支出"

Dim dr As DataRow

Dim drs As List(of DataRow)

dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey") & " and 银行卡号='" & e.DataRow("银行卡号") & "'", "[_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") & " and 银行卡号='" & e.DataRow("银行卡号") & "'", "[_SortKey]")

For i As Integer = 1 To drs.Count - 1 '重算余下行的余额

drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("支出")

End Select

新问题出现了如果是

一行是001卡号

一行是002卡号

一行是001卡号

一行是002卡号

这样的不连续行数卡号居然不会计算001 002各自最后的余额

看帮助中的第二个例子吧：http://www.foxtable.com/webhelp/scr/1572.htm

用Compute计算。

参照教程已经实现谢谢！

代码如下：

Select Case e.DataCol.Name

Case "收入","支出","银行卡卡号"

Dim drs As List(of DataRow)

Dim Filter As String

Filter = "[_SortKey] >= " & e.DataRow("_SortKey") & "And [银行卡卡号] = '" & e.DataRow("银行卡卡号") & "'"

drs = e.DataTable.Select(Filter)

For Each dr As DataRow In drs

Filter = "[_SortKey] <= " & dr("_SortKey") & " And [银行卡卡号] = '" & e.DataRow("银行卡卡号") & "'"

Dim Val1 As Double = e.DataTable.Compute("Sum(收入)",Filter)

Dim Val2 As Double = e.DataTable.Compute("Sum(支出)",Filter)

dr("余额") = Val1 - Val2

If e.DataCol.Name = "银行卡卡号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then

Filter = "[_SortKey] > " & e.DataRow("_SortKey") & " And [银行卡卡号] = '" & e.OldValue & "'"

drs = e.DataTable.Select(Filter)

For Each dr As DataRow In drs

Filter = "[_SortKey] <= " & dr("_SortKey") & " And [银行卡卡号]= '" & e.DataRow("银行卡卡号") & "'"

Dim Val1 As Double = e.DataTable.Compute("Sum(收入)",Filter)

Dim Val2 As Double = e.DataTable.Compute("Sum(支出)",Filter)

dr("余额") = Val1 - Val2

End If

End Select

[此贴子已经被作者于2016/10/27 23:30:03编辑过]

主题：流水帐是否可以根据不同的银行卡号来进行对应的收入 支出 余额的单独计算呢？

主题：流水帐是否可以根据不同的银行卡号来进行对应的收入支出余额的单独计算呢？