主题：日期筛选无法跨2013筛选代码

 楼主，你的代码，或者你的数据有问题吧？贴出你自己写的代码，上传你有的数据或者项目。

如果之前正常的话，就不可能是代码出错了。看看你的表数据里是否有不符合规则的数据，比如空行等的。

这句
For Each dr As DataRow In DataTables("会员信息").DataRows

改成
For Each dr As DataRow In DataTables("会员信息").Select("阳历生日 is not null And 出生日期 is not null")

嗯嗯，明白了，应该是2月29日的问题。

代码需要这样改一下。

Dim s As Date
Dim ids As String
Dim cnt As Integer
Dim nms As String
Syscmd.Filter.UnFilter()
s = Forms("窗口4").Controls("DateTimePicker1").value

For Each dr As DataRow In DataTables("会员信息").DataRows 
    Dim dt As Date = dr("阳历生日")  
    Dim dy As Date = dr("出生日期")
   
    Dim day As Integer = dt.Day
    If dt.Month = 2 AndAlso dt.Day = 29 AndAlso Date.IsLeapYear(s.Year) = False Then
        day = 28
    End If
    dt =  New Date(s.Year,dt.Month, day)

    day = dy.Day
    If dy.Month = 2 AndAlso dy.Day = 29 AndAlso Date.IsLeapYear(s.Year) = False Then
        day = 28
    End If   
    dy =  New Date(s.Year,dy.Month,day)
   
    If dt = s Or dy = s Then      
        cnt = cnt + 1     
        ids = ids & "," & dr("_Identify")     
    End If 
Next

If cnt > 0 Then 
    Tables("会员信息").Filter = "[_Identify] In (" & ids.Trim(",") &")"  
Else
    messagebox.show("没有过生日的人")
End If