Foxtable(狐表)用户栏目专家坐堂 → 关于按钮实现上一月下一个月汇总问题


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

主题:关于按钮实现上一月下一个月汇总问题

帅哥哟,离线,有人找我吗?
南望
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:3290 威望:0 精华:0 注册:2014/4/9 10:04:00
关于按钮实现上一月下一个月汇总问题  发帖心情 Post By:2017/3/1 9:47:00 [只看该作者]

窗口中有三个按钮,分别实现上一月、本月、下一月的汇总某列的功能,上一月及本月的按钮功能已经实现,如何实现下一月按钮功能?由于加AddMonths(-1)是在当前月的基础上减一个月,如果在当前基础加一个月不符合实际。
Dim Filter As String
Dim Zhichu As Double
Dim ShouRu As Double
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim FirstDay As New Date(y, m, 1)
FirstDay = FirstDay.AddMonths(-1)
y = FirstDay.Year
m = FirstDay.Month
e.Form.Controls("Label6").text = m
Dim LastDay As New Date(y, m, Date.DaysInMonth(y, m))
Filter = "日期 >= #" & FirstDay & "# And 日期 <= #" & LastDay & "#"
msgbox(filter)
ShouRu  = DataTables("收入表").SqlCompute("Sum(收入金额)",Filter)
Zhichu  = DataTables("支出表").SqlCompute("Sum(支出金额)",Filter)
e.Form.Controls("Label7").text = Format(Shouru,"c")
e.Form.Controls("Label8").text = Format(Zhichu,"c")

 回到顶部
帅哥哟,离线,有人找我吗?
wyz20130512
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1242 积分:9374 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2017/3/1 10:06:00 [只看该作者]

Dim Filter As String
Dim Zhichu As Double
Dim ShouRu As Double
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month + 1
Dim FirstDay As New Date(y, m, 1)
e.Form.Controls("Label6").text = m
Dim LastDay As New Date(y, m, Date.DaysInMonth(y, m))
Filter = "日期 >= #" & FirstDay & "# And 日期 <= #" & LastDay & "#"
msgbox(filter)
ShouRu  = DataTables("收入表").SqlCompute("Sum(收入金额)",Filter)
Zhichu  = DataTables("支出表").SqlCompute("Sum(支出金额)",Filter)
e.Form.Controls("Label7").text = Format(Shouru,"c")
e.Form.Controls("Label8").text = Format(Zhichu,"c")

[此贴子已经被作者于2017/3/1 10:42:25编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
南望
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:3290 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2017/3/1 10:09:00 [只看该作者]

AddMonths(-1)上个月的

 回到顶部
帅哥哟,离线,有人找我吗?
南望
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:3290 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2017/3/1 10:10:00 [只看该作者]

例如:本月是3月份,点上一月按钮为2月份,再点下一月应该还为3月。

 回到顶部
帅哥哟,离线,有人找我吗?
南望
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:3290 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2017/3/1 10:27:00 [只看该作者]

老师们?

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/1 10:45:00 [只看该作者]

AfterLoad事件

 

vars("date") = Date.Today

 

本月

 

Dim Filter As String

Dim Zhichu As Double
Dim ShouRu As Double
Dim y As Integer = vars("date").Year
Dim m As Integer = vars("date").Month
Dim FirstDay As New Date(y, m, 1)
vars("date") = FirstDay
 
上月
 

Dim Filter As String

Dim Zhichu As Double
Dim ShouRu As Double
Dim y As Integer = vars("date").Year
Dim m As Integer = vars("date").Month
Dim FirstDay As New Date(y, m, 1)
FirstDay = FirstDay.AddMonths(-1)
vars("date") = FirstDay

 回到顶部
帅哥哟,离线,有人找我吗?
南望
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:3290 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2017/3/1 11:12:00 [只看该作者]

上月代码没问题,但执行完上一月代码再执行本月代码显示的不是现在的月份而是上一月的值 。

 回到顶部
帅哥哟,离线,有人找我吗?
南望
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:3290 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2017/3/1 12:14:00 [只看该作者]

本月的值不是显示上一个月就显示下一个月

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/1 12:30:00 [只看该作者]

哦,本月代码改一下

 

Dim Filter As String

Dim Zhichu As Double
Dim ShouRu As Double
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim FirstDay As New Date(y, m, 1)
vars("date") = FirstDay

 回到顶部