|
Dim ids As String
Dim n As Integer = 10 '未来天数,含今天,所以实际是未来7天
For Each dr As DataRow In DataTables("客户资料").DataRows
Dim rq As String = dr("出生日期")
If rq.Length = 8 Then
Dim Cdt As Date = new Date(rq.SubString(0,4), rq.SubString(4,2), rq.SubString(6,2))
Dim dt1 As New Date(Date.Today.Year,Cdt.Month,Cdt.Day)
Dim dt2 As New Date(Date.Today.AddDays(n).Year,Cdt.Month,Cdt.Day)
If (dt1 >= Date.Today AndAlso dt1 < Date.Today.AddDays(n)) OrElse (dt2 >= Date.Today AndAlso dt2 < Date.Today.AddDays(n)) Then
ids = ids & "," & dr("_Identify")
End If
End If
Next
If ids > "" Then
ids = ids.Trim(",")
Tables("客户资料").filter = "[_Identify] In (" & ids &")"
End If
|
加好友 
发短信
Post By：2017/7/13 8:50:00 [显示全部帖子]
