以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  每个主表正常只显示当前月份数据如何设置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27269)
--  作者：sxqq123
--  发布时间：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
--  发布时间：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
--  发布时间：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
--  发布时间：2012/12/27 12:36:00
--  
Tables("当前表的名称").Filter = "[日期] >= #" & d1 & "# And [日期] < #" & d2 & "#"