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

有道理～  只是一般窗口中都有上一条、下一条和最末条，不知道会不会在点击最末条时，看到的是最后的余额吗？哈哈～

试了一下，如果删除中间行，那么余数不会自动改变？？？修改数据是可以的－－列内容发生变化！但是删除行时没有影响列内容

再完善一下！看看怎么处理比较好！

可以在AfterDeleteDataRow事件中加入代码，重算余额列

我想把以下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

 回复15楼，你的意思是点击按钮重新计算？

 加一句，新问题，请重新发帖提问。

 参考 http://www.foxtable.com/help/topics/1587.htm

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

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

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

重置列事件代码：

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