以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  月份列表问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145693)
--  作者：王冬浜
--  发布时间：2020/2/4 21:54:00
--  月份列表问题
在查询窗口，想设计起月，止月，然后再筛选，具体要求见附件，请教代码怎么写？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:月份列表问题.rar
谢大师指点。
--  作者：有点蓝
--  发布时间：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")
Next
--  作者：王冬浜
--  发布时间：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格式，怎么取年、月，计算当月最后一天呢？
  才能保证筛选按钮正常执行，达到所需。
--  作者：有点蓝
--  发布时间：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))
--  作者：王冬浜
--  发布时间：2020/2/5 10:30:00
--  
谢谢老师指导，可以了，我好好学习分析一下代码。
--  作者：王冬浜
--  发布时间：2020/2/5 10:39:00
--  
学后面，前面的知识忘记，不能融会贯通呀！
--  作者：有点蓝
--  发布时间：2020/2/5 10:50:00
--  
基础部分多看看：http://www.foxtable.com/webhelp/topics/1592.htm
--  作者：王冬浜
--  发布时间：2020/2/5 11:56:00
--  
谢谢指导，学了狐表，我做了公司进销存管理系统，现在虽然还不能做复杂的管理系统，但确实比Excel高明的多，窗口式操作，报表自动、准确、快速，筛选、查找、排序、统计方便快捷，让同事们刮目相看。
我也正在探索工资人事管理系统的编写，届时，遇到困难，请教老师。
在此，我万分感谢老师，不管是深夜还是星期天，都不厌其烦，认真解答，你们辛苦了！！！