主题：谁帮我写一下代码，谢谢

谁能帮我写一下“累计”列的代码，谢谢！
此主题相关图片如下：qq截图20140104153601.png

Dim Key As Decimal
Dim Index As Integer
Dim dc As DataCol
Index = Math.Min(e.OldIndex, e.NewIndex)
Key = e.Table.Rows(Index)("_SortKey")
dc = e.Table.DataTable.DataCols("当日")
dc.RaiseDataColChanged("[_SortKey] >= " & Key)