以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助 任务栏  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=92894)
--  作者：litongbo1986
--  发布时间：2016/11/15 22:30:00
--  求助 任务栏
有 员工表（包含姓名、出生日期）    窗口中有任务栏    任务栏中生日提醒    如何做到在任务栏中显示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（订单）的数据  并没有筛选    如何操作呢？
--  作者：有点蓝
--  发布时间：2016/11/15 22:48:00
--  
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)
Next
--  作者：litongbo1986
--  发布时间：2016/11/16 9:37:00
--  

谢谢
--  作者：blackzhu
--  发布时间：2016/11/16 10:07:00
--  
 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