- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 根据组合框的字符筛选日期 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64507)
-- 发布时间：2015/2/16 15:22:00
-- [求助] 根据组合框的字符筛选日期
窗口组合框下拉列表的选项是类似201502这样的月份表达字符串，如何根据这个字符筛选本窗口内副本表的日期列？
-- 发布时间：2015/2/16 15:24:00
--
上例子
-- 发布时间：2015/2/23 10:38:00
--
以下是引用wll1919在2015/2/16 15:22:00的发言：
窗口组合框下拉列表的选项是类似201502这样的月份表达字符串，如何根据这个字符筛选本窗口内副本表的日期列？
拆分字符串，组合成日期去查询。
不会做，就上传例子。
-- 发布时间：2015/2/26 17:12:00
--
年前真是忙昏头了，结果代码也不是很难。。。
感谢各位大大过年还回帖
代码如下：希望能帮到各位
With Forms("租金台帐查询").Controls("ComboBox1") \'控件值非空判断
If.Value Is Nothing Then
Messagebox.Show("请输入查询月份")
Else
Dim xl As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Tables("租金台帐查询_应收租金").Filter="计租月份 Like \'*" & xl.Text & "\'" \'查询左表
Dim d As String = e.Form.Controls("ComboBox1").text \'定义各个变量
Dim d1 As String
Dim d2 As String
d1 = d.SubString(0,4) \'将字符串拆开
d2 = d.Substring(4,2)
Dim dt1 As Date = new Date (d1,d2,1) \'生成查询的月份首天
Dim dt2 As Date = new Date (d1,d2, Date.DaysInMonth(d1,d2)) \'生成查询的月份末天
Tables("租金台帐查询_企业缴费流水").Filter="缴费时间 >= #" & dt1 & "# and 缴费时间 <= #" & dt2 & "#"
End If
End With