加上判断
If d1 <> Nothing Then bd1.Filter = "操作日期 <= '" & d1 & "' "
If d1 <> Nothing Then bd2.Filter = "操作日期 <= '" & d1 & "' "
加好友 
发短信
Post By：2018/5/15 8:41:00 [显示全部帖子]
