对表进行筛选即可，如
Dim d As Date = New Date(Date.Today, 1, 1)
Tables("表A").Filter = "日期 >= #" & d & "# and 日期 < #" & d.addMonths(1) & "#"
加好友 
发短信
Post By：2015/6/19 10:20:00 [显示全部帖子]
