[求助]关于月累计，年累计的计算方法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于月累计，年累计的计算方法

共有2516人关注过本帖树形打印复制链接主题：[求助]关于月累计，年累计的计算方法

liuwei2182

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：46 积分：378 威望：0 精华：0 注册：2018/2/2 16:20:00

[求助]关于月累计，年累计的计算方法 发帖心情

Post By：2018/2/5 17:48:00 [显示全部帖子]

连着看了4天的说明了，头疼

求大师指点

[求助]关于月累计，年累计的计算方法

liuwei2182

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：46 积分：378 威望：0 精华：0 注册：2018/2/2 16:20:00

Post By：2018/2/5 17:59:00 [显示全部帖子]

我是试用版的，打不开啊，求助

liuwei2182

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：46 积分：378 威望：0 精华：0 注册：2018/2/2 16:20:00

Post By：2018/2/5 18:00:00 [显示全部帖子]

我是试用版的，打不开下载的实例

liuwei2182

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：46 积分：378 威望：0 精华：0 注册：2018/2/2 16:20:00

Post By：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编辑过]

下一主题 >> << 上一主题

主题：[求助]关于月累计，年累计的计算方法