如何显示跨月份日期 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何显示跨月份日期

共有9499人关注过本帖树形打印复制链接主题：如何显示跨月份日期

sxqq123

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2307 威望：0 精华：0 注册：2012/11/14 11:25:00

如何显示跨月份日期 发帖心情

Post By：2013/1/9 17:20:00 [只看该作者]

您好：我想让当前表为主表时只显示上月26日到本月25日数据，请教如何实现？

在每旬增加旬累计功能，全月增加月累计功能，请教如何实现？

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/9 17:42:00 [只看该作者]

可以筛选。具体的问题，请上传数据表。

Tables("xxx").Filter = "日期 >= #12/26/2012# And 日期 < #1/26/2013#"

sxqq123

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2307 威望：0 精华：0 注册：2012/11/14 11:25:00

Post By：2013/1/9 21:31:00 [只看该作者]

我想实现的是每个月,在日期范围内输入数据时,显示上月26日到本月25日数据,请教如何实现?

sxqq123

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2307 威望：0 精华：0 注册：2012/11/14 11:25:00

Post By：2013/1/9 21:35:00 [只看该作者]

原来用的是这样的,显示的是本月日期的数据,现在想显示:上月26日到本月25日数据,请教如何实现?

Dim d As Date = Date.Today
Dim d1 As Date = New Date(d.Year,d.Month,1)
Dim d2 As Date = new Date(d.year,d.month,Date.daysinmonth(d.year,d.month))
Select Case CurrentTable.name
    Case "原料出库"
        Tables("原料出库").Filter = "[使用日期] >= #" & d1 & "# And [使用日期] < #" & d2 & "#"
        MainTable = Tables("原料出库")
    Case "原料入库"
        Tables("原料入库").Filter = "[入库日期] >= #" & d1 & "# And [入库日期] < #" & d2 & "#"
        MainTable = Tables("原料入库")
   End Select

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/1/9 21:39:00 [只看该作者]

上月26日到本月25日：

Dim d As Date = Date.Today
Dim d1 As Date = New Date(d.Year,d.Month,25)
Dim d2 As Date = d1.AddMonth(-1).AddDays(1)
Select Case CurrentTable.name
    Case "原料出库"
        Tables("原料出库").Filter = "[使用日期] >= #" & d1 & "# And [使用日期] < #" & d2 & "#"
        MainTable = Tables("原料出库")
    Case "原料入库"
        Tables("原料入库").Filter = "[入库日期] >= #" & d1 & "# And [入库日期] < #" & d2 & "#"
        MainTable = Tables("原料入库")
End Select

sxqq123

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2307 威望：0 精华：0 注册：2012/11/14 11:25:00

Post By：2013/1/9 22:26:00 [只看该作者]

sxqq123

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2307 威望：0 精华：0 注册：2012/11/14 11:25:00

Post By：2013/1/9 22:29:00 [只看该作者]

此主题相关图片如下：qqq.jpg

lin_hailun

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/10 9:33:00 [只看该作者]

Dim d As Date = Date.Today
Dim d1 As Date = New Date(d.Year,d.Month,25)
Dim d2 As Date = d1.AddMonths(-1).AddDays(1)
Select Case CurrentTable.name
    Case "原料出库"
        Tables("原料出库").Filter = "[使用日期] >= #" & d1 & "# And [使用日期] < #" & d2 & "#"
        MainTable = Tables("原料出库")
    Case "原料入库"
        Tables("原料入库").Filter = "[入库日期] >= #" & d1 & "# And [入库日期] < #" & d2 & "#"
        MainTable = Tables("原料入库")
End Select

下一主题 >> << 上一主题

主题：如何显示跨月份日期