Dim d1 As New Date(Date.Today,1,1)
Dim d2 As New Date(Date.Today,12,31)
Tables("xxx").Filter = "日期 >=#" d1 & "# And 日期<= #" & d2 & "#"
加好友 
发短信
Post By：2013/3/12 23:31:00 [显示全部帖子]
