有 员工表（包含姓名、出生日期） 窗口中有任务栏 任务栏中生日提醒 如何做到在任务栏中显示7天内过生日的人？
在窗体的afterload中设置了
Dim Pag As WinForm.TopicPage
Pag = Forms("窗口5").Controls("TopicBar1").Pages("生日提醒")
For Each pp As String In DataTables("员工").GetValues("姓名")
Pag.Links.Add(pp,pp)
Next
在项目属性中的Afteropenproject中设置
Dim nms
As String
Dim n
As Integer =
6
For Each
dr As DataRow In DataTables("员工").DataRows
Dim dt As Date = dr("出生日期")
Dim dt1 As New Date(Date.Today.Year,dt.Month,dt.Day)
Dim dt2
As New Date(Date.Today.AddDays(n).Year,dt.Month,dt.Day)
If
(dt1 >= Date.Today AndAlso dt1 < Date.Today.AddDays(n)) OrElse (dt2 >= Date.Today AndAlso dt2 < Date.Today.AddDays(n)) Then
nms
= nms & ",'" &
dr("姓名") & "'"
End
If
Next
If nms > "" Then
nms = nms.Trim(",")
Tables("员工").filter = "[姓名] In
(" & nms
&")"
End If
可是任务栏中提醒的人名 还是datatable（订单）的数据 不是table（订单）的数据 并没有筛选 如何操作呢？
加好友 
发短信
Post By：2016/11/15 22:30:00 [显示全部帖子]
