Filter1 = Filter1 & "{合同记录}.日期 < '" & .Value & "'"
改成这样看看
Dim d as Date = .Value
Filter1 = Filter1 & "{合同记录}.日期 < '" & d.Adddays(1) & "'"
加好友 
发短信
Post By：2015/11/19 9:44:00 [显示全部帖子]
