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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 每个主表正常只显示当前月份数据如何设置

共有8787人关注过本帖树形打印复制链接主题：每个主表正常只显示当前月份数据如何设置

sxqq123

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

加好友

发短信

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

每个主表正常只显示当前月份数据如何设置 发帖心情

Post By：2012/12/27 9:03:00 [只看该作者]

在MainTableChanged事件中设置如下代码：

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,d.DaysInMonth(d.Year,d.Month))
Tables("日期").Filter = "（ [日期] >= #" & d1 & "#) And [日期] <= #" & d2 & "#"

好像不行，请教大师

lin_hailun

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

加好友

发短信

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

Post By：2012/12/27 9:22:00 [只看该作者]

Dim d As Date = Date.Today
Dim d1 As Date = New date(d.Year,d.Month,1)
Dim d2 As Date = d1.AddMonths(1)
Tables("日期").Filter = "[日期] >= #" & d1 & "# And [日期] < #" & d2 & "#"

sxqq123

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

加好友

发短信

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

Post By：2012/12/27 12:19:00 [只看该作者]

以下是引用lin_hailun在2012-12-27 9:22:00的发言：
Dim d As Date = Date.Today
Dim d1 As Date = New date(d.Year,d.Month,1)
Dim d2 As Date = d1.AddMonths(1)
Tables("日期").Filter = "[日期] >= #" & d1 & "# And [日期] < #" & d2 & "#"

我表达有误,想实现的目标是:在每个当前表是主表时显示当前月份数据,没有"日期"表,"日期"是一列,麻烦指教

e-png

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

加好友

发短信

等级：七尾狐帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00

Post By：2012/12/27 12:36:00 [只看该作者]

Tables("当前表的名称").Filter = "[日期] >= #" & d1 & "# And [日期] < #" & d2 & "#"

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

主题：每个主表正常只显示当前月份数据如何设置