以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于数据加载  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60960)
--  作者：爱相随
--  发布时间：2014/12/4 14:40:00
--  关于数据加载

老师，我要将下列代码改为只加载本月数据，怎么修改代码？？

示例四

对于录入员，只加载本年的订单：

If e.DataTableName = "订单" AndAlso e.User.Name = "录入员" Then
    Dim StartDate As New Date(Date.Today.Year, 1, 1)
    Dim EndDate As New Date(Date.Today.Year, 12 ,31)
    e.Filter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#"
End If
--  作者：Bin
--  发布时间：2014/12/4 14:40:00
--  
http://www.foxtable.com/help/topics/2720.htm
--  作者：爱相随
--  发布时间：2014/12/4 14:56:00
--  
以下是引用Bin在2014-12-4 14:40:00的发言：
http://www.foxtable.com/help/topics/2720.htm

再问，如果不是指定年度的月份，而是当前系统日期的月份，请问怎么改代码呢，谢谢？？

筛选指定月份数据

例如筛选2011年6月份的订单：

Dim y As Integer = 2011 \'指定年份
Dim m As Integer = 6 \'指定月份
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(2011,6)) \'获取该月的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables("订单").Filter = Filter
--  作者：Bin
--  发布时间：2014/12/4 14:57:00
--  
看帮助,下面有例子,各种情况的例子都有
--  作者：有点甜
--  发布时间：2014/12/4 15:00:00
--  
Dim y As Integer = Date.Today.Year
--  作者：有点甜
--  发布时间：2014/12/4 15:01:00
--  
Dim m As Integer = Date.Today.Month
[此贴子已经被作者于2014-12-4 15:00:42编辑过]
--  作者：jialihaha
--  发布时间：2014/12/4 15:01:00
--  
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables("订单").Filter = Filter
--  作者：爱相随
--  发布时间：2014/12/4 17:07:00
--  
老师，打开项目提示至少一个参数没有被指定，是什么情况叱
--  作者：有点甜
--  发布时间：2014/12/4 17:08:00
--  
以下是引用爱相随在2014-12-4 17:07:00的发言：
老师，打开项目提示至少一个参数没有被指定，是什么情况叱

 

sql语句有错，比如表名、列名写错了。