以下是引用youwei_dong在2014-6-11 19:45:00的发言：
看来和年有关系了
代码
Dim idxs As String = ""
Dim phs As new List(Of String)
For Each dr As DataRow In DataTables("表A").DataRows
If phs.Contains(dr("电话")) = False Then
If CDate(dr("生日")).Month = Date.Today.Month AndAlso CDate(dr("生日")).Day = Date.Today.Day Then
phs.Add(dr("电话"))
idxs &= dr("_Identify") & ","
End If
End If
Next
Tables("表A").Filter = "_Identify in (" & idxs.TrimEnd(",") & ")"
加好友 
发短信
Post By：2014/6/11 19:46:00 [只看该作者]
