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

在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 & "#"

好像不行，请教大师