设置一下 filter
Dim d As Date = new Date(Date.Today.Year, 1, 1)xxx.Filter = "日期 >= #" & d & "# and 日期 < #" & d.AddYears(1) & "#"
加好友 
发短信
Post By：2014/6/13 14:58:00 [只看该作者]
