Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于累积计算的问题


  共有5094人关注过本帖树形打印复制链接

主题：关于累积计算的问题
帅哥哟，离线，有人找我吗？
allwin100
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：69 积分：617 威望：0 精华：0 注册：2016/10/26 10:41:00 		关于累积计算的问题  发帖心情 Post By：2022/7/15 7:46:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：无标题1.png
图片点击可在新窗口打开查看
根据当前日历天数，只统计在当月天数内的产量，并保存在当天的累积产量中。
如统计7月11日-7月1日的产量，并保存至7月11日的月累积中，其它日期不计算。请问一下这个代码怎么写
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/15 8:40:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
allwin100
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：69 积分：617 威望：0 精华：0 注册：2016/10/26 10:41:00 		  发帖心情 Post By：2022/7/15 23:27:00 [只看该作者]

谢谢，改好了，试过，可以用，不过不知道有没有更好的，分享一下。只对当前月统计，我的数据库中会有以前的数据。也只改写工作当日的数据，以前的数据不动。
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.Today.Day) '获取当前日期
Dim dt3 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim Filter As String'筛选
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"'筛选
Tables("日").Filter = Filter'筛选
Dim Amount As Double’对全部数据进行求和
With DataTables("日")
    Amount = .Compute("Sum(日产量)")
End With
Dim Amount As Double = DataTables("日").Compute("Sum(日产量)","[日期] >= #" & dt1 & "#")’对指定日期的数据进行求和
DataTables("日").ReplaceFor("月产量", Amount, "[日期] = #" & dt2 & "#")'对指定日期的数据进行填写
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/16 9:22:00 [只看该作者]

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.Today.Day) '获取当前日期
Dim dt3 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim Filter As String'筛选
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"'筛选
dim dr as datarow = DataTables("日").find(Filter,"日期 desc")
if dr isnot nothing then
dr("月产量") = DataTables("日").Compute("Sum(日产量)",Filter)
end if
 回到顶部
帅哥哟，离线，有人找我吗？
allwin100
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：69 积分：617 威望：0 精华：0 注册：2016/10/26 10:41:00 		  发帖心情 Post By：2022/7/19 8:59:00 [只看该作者]

谢谢了

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03320 秒, 4 次数据查询