以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教如何统计年累计数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=38774)

--  作者:sxqq123
--  发布时间:2013/8/6 17:57:00
--  请教如何统计年累计数

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:年度计划管理.foxdb

在统计过程中,年累计数无法显示,请教如何处理.


--  作者:sxqq123
--  发布时间:2013/8/6 18:08:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20130806180739.jpg
图片点击可在新窗口打开查看

--  作者:y2287958
--  发布时间:2013/8/6 18:09:00
--  
未带开发版
--  作者:y2287958
--  发布时间:2013/8/6 18:12:00
--  
总的思路为:
在DataChanghed事件中事件
对compute设置_SortKey的条件即可

--  作者:y2287958
--  发布时间:2013/8/6 19:53:00
--  
DataColChanged事件
DataColChanged
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "计划费用_天计划"
        Dim y As Integer = dr("日期").Year
        Dim m As Integer = dr("日期").Month
        Dim s1 As String = "日期>=#" & m & "/1/" & y & "# And 日期<=#" & dr("日期") & "#"
        Dim s2 As String = "日期>=#1/1/" & y & "# And 日期<=#12/31/" & y & "#"
        dr("计划费用_月计划") = e.DataTable.Compute("Sum(计划费用_天计划)",s1)
        dr("计划费用_年累计") = e.DataTable.Compute("Sum(计划费用_天计划)",s2)
End Select

--  作者:有点甜
--  发布时间:2013/8/6 20:35:00
--  
图片点击可在新窗口打开查看这个问题,弄得有点晕……

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:年度计划管理.foxdb


--  作者:sxqq123
--  发布时间:2013/8/7 10:56:00
--  
谢谢有点甜,感觉很甜。