关于按钮实现上一月下一个月汇总问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2045人关注过本帖树形打印复制链接主题：关于按钮实现上一月下一个月汇总问题

南望

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

加好友

发短信

等级：小狐帖子：392 积分：3312 威望：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

加好友

发短信

等级：六尾狐帖子：1249 积分：9474 威望：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

加好友

发短信

等级：小狐帖子：392 积分：3312 威望：0 精华：0 注册：2014/4/9 10:04:00

Post By：2017/3/1 10:09:00 [只看该作者]

AddMonths(-1)上个月的

南望

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

加好友

发短信

等级：小狐帖子：392 积分：3312 威望：0 精华：0 注册：2014/4/9 10:04:00

Post By：2017/3/1 10:10:00 [只看该作者]

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

南望

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

加好友

发短信

等级：小狐帖子：392 积分：3312 威望：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

加好友

发短信

等级：小狐帖子：392 积分：3312 威望：0 精华：0 注册：2014/4/9 10:04:00

Post By：2017/3/1 11:12:00 [只看该作者]

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

南望

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

加好友

发短信

等级：小狐帖子：392 积分：3312 威望：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

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

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