月份列表问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 月份列表问题

共有3836人关注过本帖树形打印复制链接主题：月份列表问题

王冬浜

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

加好友

发短信

等级：幼狐帖子：60 积分：741 威望：0 精华：0 注册：2019/3/18 14:03:00

月份列表问题 发帖心情

Post By：2020/2/4 21:54:00 [只看该作者]

在查询窗口，想设计起月，止月，然后再筛选，具体要求见附件，请教代码怎么写？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:月份列表问题.rar

谢大师指点。

有点蓝

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

加好友

发短信

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/4 22:07:00 [只看该作者]

Dim d As Date = Date.Today

Dim val As String = format(d,"yyyyMM")

For i As Integer = -1 To -120 Step -1

val = val & "|" & format(d.AddMonths(i),"yyyyMM")

王冬浜

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

加好友

发短信

等级：幼狐帖子：60 积分：741 威望：0 精华：0 注册：2019/3/18 14:03:00

Post By：2020/2/5 9:59:00 [只看该作者]

老师：筛选按钮的这段代码怎么修改呢？

Dim y As Integer = e.Form.Controls("ComboBox1").value
Dim m As Integer = e.Form.Controls("ComboBox2").value
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Tables("订单").Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"

因为：ComboBox1现在是201001，或者201003，怎么取出它的年、月呢？

同理，ComboBox2也是202002格式，怎么取年、月，计算当月最后一天呢？

才能保证筛选按钮正常执行，达到所需。

有点蓝

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

加好友

发短信

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/5 10:10:00 [只看该作者]

Dim dt1 As Date = cdate(e.Form.Controls("ComboBox1").text.Insert(4,"-") & "-01")
Dim d As Date = cdate(e.Form.Controls("ComboBox2").text.Insert(4,"-") & "-01")

Dim dt2 As New Date(d.year, d.month, Date.DaysInMonth(d.year,d.month))