老师，这个是那里的格式错了呀，筛选出日期控件以前切处理状态不为已处理的行，感谢 感谢 

Tables("事件编辑窗口_Table1").filter = "事件日期 >Forms("事件编辑窗口"). Controls("DateTimePicker1") And  处理状态 <> \'已处理\'"

老师，最后那一段应该怎么写呀，能帮忙看看吗？感谢 感谢 

Dim Filter As String
With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "事件日期 = \'" & .Value & "\'"   \'此处内容自行修改
    End If
End With
If Filter > "" Then
    \'Tables("事件编辑窗口_Table1").Filter <= Filter  And  处理状态 <>\'已处理\'"
End If

感谢 老师，如果是Label12绑定的日期可以在那里改呀。

Dim Filter As String = "处理状态 <>\'已处理\'"
\'With e.Form.Controls("DateTimePicker4")
With e.Form.Controls("Label12").Text
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "事件日期 <= \'" & .Value & "\'"   \'此处内容自行修改
    End If
End With
Tables("事件编辑窗口_Table1").Filter = Filter