主题：[求助]关于自制筛选的问题

Dim Filter As String
With e.Form.Controls("cmbProduct")
If .Value IsNot Nothing Then
Filter = "日期 = '" & .Value & "'"
End If

If Filter > "" Then
Tables("表A").Filter = Filter
End If

如上，这是一个筛选按钮的代码，筛选列“日期”的列数据类型为日期时间，格式为2014-02-05等，筛选条件为同样的年月日，但是我希望能将筛选条件变成满足“日期”列中的前4字符（即年份），请问是否有这样的代码能做到如果"cmbProduct"满足前4字符，就可以筛选出来