如果似乎sql server,记得
Filter = Filter & "做箱时间 <= #" & .Value & "#"
改为
Filter = Filter & "做箱时间 <= '" & .Value & "'"
其他看不出什么,最好有个例子测试