Foxtable(狐表)用户栏目专家坐堂 → 加载数据时怎么默认只加载本月数据


  共有8236人关注过本帖树形打印复制链接

主题:加载数据时怎么默认只加载本月数据

帅哥哟,离线,有人找我吗?
冰31脚
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:198 积分:1646 威望:0 精华:0 注册:2012/4/16 10:10:00
加载数据时怎么默认只加载本月数据  发帖心情 Post By:2013/1/24 11:52:00 [显示全部帖子]

我的表一打开就会加载所有数据,所以比较慢,怎么能在打开时默认只加载当月的数据?

 回到顶部
帅哥哟,离线,有人找我吗?
冰31脚
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:198 积分:1646 威望:0 精华:0 注册:2012/4/16 10:10:00
  发帖心情 Post By:2013/1/24 17:48:00 [显示全部帖子]

If e.DataTableName = "综管" AndAlso e.User.Name = "user" Then
    Dim StartDate As New Date(Date.Today.Year, 1, 1)
    Dim EndDate As New Date(Date.Today.Year, 12 ,31)
    e.SelectString = "Select * From {综管} Where [月份营运报表_日期] >= #" & StartDate & "# And   [月份营运报表_日期] <= #" & EndDate & "#"
End If

 

这个可以写成按年加载的是可以的,我把代码改成

If e.DataTableName = "综管" AndAlso e.User.Name = "user" Then
    Dim StartDate As New Date(Date.Today.month,0, 1)
    Dim EndDate As New Date(Date.Today.month,0,31)
    e.SelectString = "Select * From {综管} Where [月份营运报表_日期] >= #" & StartDate & "# And   [月份营运报表_日期] <= #" & EndDate & "#"
End If

提示:

 

 
图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

 

 

If e.DataTableName = "综管" AndAlso e.User.Name = "user" Then
    Dim StartDate As New Date(Date.Today.month, 1)
    Dim EndDate As New Date(Date.Today.month,31)
    e.SelectString = "Select * From {综管} Where [月份营运报表_日期] >= #" & StartDate & "# And   [月份营运报表_日期] <= #" & EndDate & "#"
End If

 

 

都加载不了

提示:

 
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

麻烦林老师再帮忙看下,按月加载应该怎么写

[此贴子已经被作者于2013-1-24 17:49:30编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
冰31脚
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:198 积分:1646 威望:0 精华:0 注册:2012/4/16 10:10:00
  发帖心情 Post By:2013/1/24 17:58:00 [显示全部帖子]

汗,这个StartDate.AddMonths(1)

是怎么包含到当月所有日期的


 回到顶部
帅哥哟,离线,有人找我吗?
冰31脚
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:198 积分:1646 威望:0 精华:0 注册:2012/4/16 10:10:00
  发帖心情 Post By:2013/1/24 18:22:00 [显示全部帖子]

好的 非常感谢的两位指导

 回到顶部