以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于月累计,年累计的计算方法  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114412)

--  作者:liuwei2182
--  发布时间:2018/2/5 17:48:00
--  [求助]关于月累计,年累计的计算方法
连着看了4天的说明了,头疼
求大师指点
[求助]关于月累计,年累计的计算方法

--  作者:有点甜
--  发布时间:2018/2/5 17:51:00
--  

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=78560&skin=0

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=38774&skin=0

 

 


--  作者:liuwei2182
--  发布时间:2018/2/5 17:59:00
--  
我是试用版的,打不开啊,求助
--  作者:liuwei2182
--  发布时间:2018/2/5 18:00:00
--  
我是试用版的,打不开下载的实例
--  作者:有点甜
--  发布时间:2018/2/5 18:11:00
--  

你的具体项目发上来测试。

 

按年按月的条件,参考 http://www.foxtable.com/webhelp/scr/2720.htm

 


--  作者:liuwei2182
--  发布时间:2018/2/5 18:31:00
--  
用了下列方法,不知道有没有缺点

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



[此贴子已经被作者于2018/2/5 18:31:12编辑过]

--  作者:有点蓝
--  发布时间:2018/2/5 20:06:00
--  
代码没有什么问题。至于逻辑要看你的表结构和业务需求是怎么样的了