主题：以下代码怎么都没反应

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