以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于不按常规月份，月累计的使用问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114502)
--  作者：liuwei2182
--  发布时间：2018/2/7 18:11: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


假如我的月累计是按照每月的26日为周期，上列代码应该怎么修改，谢谢！！
--  作者：有点甜
--  发布时间：2018/2/7 18:15:00
--  

参考 http://www.foxtable.com/webhelp/scr/2962.htm