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

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

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

lin_hailun

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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#"

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

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