以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  谁帮我写一下代码,谢谢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44593)

--  作者:王丕强
--  发布时间:2014/1/4 15:37:00
--  谁帮我写一下代码,谢谢
谁能帮我写一下“累计”列的代码,谢谢!
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140104153601.png
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2014/1/4 15:39:00
--  
http://www.foxtable.com/help/topics/2136.htm
--  作者:Bin
--  发布时间:2014/1/4 15:39:00
--  
http://www.foxtable.com/help/topics/1572.htm
--  作者:王丕强
--  发布时间:2014/1/4 15:48:00
--  
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)