窗口中有三个按钮，分别实现上一月、本月、下一月的汇总某列的功能，上一月及本月的按钮功能已经实现，如何实现下一月按钮功能？由于加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")
加好友 
发短信
Post By：2017/3/1 9:47:00 [只看该作者]
