- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 按年份查询求助？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=96390)
-- 发布时间：2017/2/19 21:21:00
-- 按年份查询求助？
我有一个表，里面有日期列，记录事件日期，已知按月查询，代码如下：
\'查看量房开始
Dim cbx1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim cbx2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim filter As String = "1=1"
If cbx1.text > "" Then
Dim year As String = cbx1.text.SubString(0,2)
Dim month As String = cbx1.text.SubString(3,2)
Dim d As Date = new Date(year+2000, month, 1)
filter &= " and 量房时间 >= #" & d & "# and 量房时间 < #" & d.AddMonths(1) & "#"
End If
If cbx2.text > "" Then
filter &= " and 设计师 = \'" & cbx2.text & "\'"
End If
\'msgbox(filter)
e.Form.controls("table1").Table.Filter = filter
\'查看量房结束
但是按年查询，我的代码应该怎么改呢？求助大侠指点！如图，如案例！
此主题相关图片如下：qq截图20170219211521.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:按年份查询.table |
-- 发布时间：2017/2/19 21:23:00
--
按年查询combobox3控件中的内为下，如图：
此主题相关图片如下：qq截图20170219212153.jpg
-- 发布时间：2017/2/19 23:54:00
--
\'查看量房开始
Dim cbx1 As WinForm.ComboBox = e.Form.Controls("ComboBox3")
Dim cbx2 As WinForm.ComboBox = e.Form.Controls("ComboBox4")
Dim filter As String = "1=1"
If cbx1.text > "" Then
Dim year As String = cbx1.text.SubString(0,4)
Dim d As Date = new Date(year, 1, 1)
filter &= " and 量房时间 >= #" & d & "# and 量房时间 < #" & d.AddYears(1) & "#"
End If
If cbx2.text > "" Then
filter &= " and 设计师 = \'" & cbx2.text & "\'"
End If
\'msgbox(filter)
e.Form.controls("table1").Table.Filter = filter
\'查看量房结束
-- 发布时间：2017/2/20 10:43:00
--
感谢老师！
-- 发布时间：2017/2/22 17:23:00
--
老师您好，如下图，我的设计师例里的名字会根据不同情况标记为某某（完成），但窗口的功能不变，想通过查询所选人的所有事项，不知道代码怎么改？如图，如案例！求指点？
此主题相关图片如下：qq截图20170222172008.jpg
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:按年份查询.table |
-- 发布时间：2017/2/22 17:29:00
--
\'查看量房开始
Dim cbx1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim cbx2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim filter As String = "1=1"
If cbx1.text > "" Then
Dim year As String = cbx1.text.SubString(0,2)
Dim month As String = cbx1.text.SubString(3,2)
Dim d As Date = new Date(year+2000, month, 1)
filter &= " and 量房时间 >= #" & d & "# and 量房时间 < #" & d.AddMonths(1) & "#"
End If
If cbx2.text > "" Then
filter &= " and 设计师 like \'" & cbx2.text & "%\'"
End If
\'msgbox(filter)
e.Form.controls("table1").Table.Filter = filter
\'查看量房结束
-- 发布时间：2017/2/22 17:29:00
--
如果是不带时间的类似的写法，我倒时知道一个如：Tables("情况_table1").Filter="地址 = \'" & dd.text & "\' and 设计师 like \'%" & sjsD.text & "%\'"
尝试着去改，没有改成，求指点？
-- 发布时间：2017/2/22 17:30:00
--
看6楼。
-- 发布时间：2017/2/22 20:01:00
--
谢谢