| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 我想只加载本月的数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40585) |
| -- 作者：草莓zhoujing -- 发布时间：2013/9/24 10:58:00 -- 我想只加载本月的数据 If e.DataTableName = "旅行社入园登记" Then
Dim StartDate As New Date(Date.Today.Year, Date.Today.Month, 1)
Dim EndDate As New Date(Date.Today.Year, Date.Today.Month, 31)
e.Filter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#"
End If
麻烦帮我看下这段代码有什么问题，我想只加载本月的数据。我日期的格式是2013-09-24
|
| -- 作者：Bin -- 发布时间：2013/9/24 11:03:00 -- 请问你出现什么问题? 你这个是写在BeforeLoadInnerTable中的吗? 直接写 31是不对的呢,万一这个月没有31号呢 If e.DataTableName = "旅行社入园登记" Then Dim StartDate As New Date(Date.Today.Year, Date.Today.Month, 1) Dim EndDate As New Date(Date.Today.Year, Date.Today.Month, Date.DaysInMonth(Date.Today.Year, Date.Today.Month)) e.Filter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#" End If |
| -- 作者：Bin -- 发布时间：2013/9/24 11:03:00 -- http://www.foxtable.com/help/topics/2720.htm |
| -- 作者：草莓zhoujing -- 发布时间：2013/9/24 11:11:00 -- 谢谢了，解决了 |