我需要设计一个流水账:
![图片点击可在新窗口打开查看](file:///C:/Documents%20and%20Settings/Administrator/Application%20Data/Tencent/Users/297533330/QQ/WinTemp/RichOle/$R9T6O)TID~WRWK@HB8MPGS.jpg)
看帮助有代码如下:
实现的代码不复杂,只需将DataColChanged事件设为:
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
该段代码的原理很简单:如果修改了某行的收入或支出,那么针对顺序在该行之后的每一行,计算出截止到此行的收入和支出,二者相减即可得到此行的余额。
请问这些代码写在哪儿?
![图片点击可在新窗口打开查看](file:///C:/Documents%20and%20Settings/Administrator/Application%20Data/Tencent/Users/297533330/QQ/WinTemp/RichOle/P(2[XEXHEVJDSSJA8IOBG_1.jpg)
我怎么找不到“DataColChanged事件”在哪儿?