With e.Form.Controls("开始日期") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "入厂日期>= '" & .Value & "'" End If End With
With e.Form.Controls("结束日期") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "入厂日期<= '" & .Value & "'" End If End With