主题：流水账设计的详细介绍

我想把以下DataColChanged事件中的代码，转换到窗口一个按钮的单击事件代码怎么写？

实现的代码不复杂，只需将DataColChanged事件设为:

Select Case e.DataCol.Name
    Case "日期","收入","支出"
    If e.DataRow.Isnull("日期") = False Then
        For Each dr As DataRow In e.DataTable.Select("[日期] >= #" & e.DataRow("日期") & "#")
            Dim Val1 As Double = e.DataTable.compute("Sum(收入)","[日期] <= #" & dr("日期") & "#")
            Dim Val2 As Double = e.DataTable.compute("Sum(支出)","[日期] <= #" & dr("日期") & "#")
            dr("余额") = Val1 - Val2
        Next
    End If
End Select

 明白了，代码还是写在写在DataColChanged事件中，然后在按钮中单击事件中设置重置列的事件。谢谢！

我找到了重置列的事件代码，然后放在按钮事件中，执行后列没有重计算，什么原因？

但在表界面下，点菜单中的重置列，则可以计算！

重置列事件代码：

If CurrentTable IsNot Nothing AndAlso CurrentTable.ColSel >= 0 Then
    Dim dc As DataCol = CurrentTable.Cols(CurrentTable.ColSel).DataCol
    dc.RaiseDataColchanged()
End If