求助任务栏 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有员工表（包含姓名、出生日期）窗口中有任务栏任务栏中生日提醒如何做到在任务栏中显示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)

在项目属性中的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

If nms > "" Then

nms = nms.Trim(",")

Tables("员工").filter = "[姓名] In (" & nms &")"

End If

可是任务栏中提醒的人名还是datatable（订单）的数据不是table（订单）的数据并没有筛选如何操作呢？

Dim Pag As WinForm.TopicPage

Pag = Forms("窗口5").Controls("TopicBar1").Pages("生日提醒")

For Each pp As String In DataTables("员工").GetValues("姓名",Tables("员工").filter)

Pag.Links.Add(pp,pp)

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(",")

        End If
        Dim Pag As WinForm.TopicPage
        Pag = Forms("窗口5").Controls("TopicBar1").Pages("生日提醒")
        For Each pp As String In DataTables("员工").GetValues("姓名", "[姓名] In (" & nms & ")")
            Pag.Links.Add(pp, pp)
        Next

主题：求助 任务栏

主题：求助任务栏