关于生日提醒如何输出到消息提示框 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于生日提醒如何输出到消息提示框

共有3691人关注过本帖树形打印复制链接主题：关于生日提醒如何输出到消息提示框

wh420

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1107 积分：10592 威望：0 精华：0 注册：2014/2/19 16:32:00

关于生日提醒如何输出到消息提示框 发帖心情

Post By：2020/8/14 14:20:00 [只看该作者]

如何将满足未来几天过生日的多个人名输出到messagebox.show中?

Dim ids As String

Dim n As Integer = 9 '未来天数,含今天,所以实际是未来7天

Dim eDate As Date = Date.Today.AddDays(n)

For Each dr As DataRow In DataTables("员工").Select("姓名 is not null")

Dim month As Integer = dr("生日").Month

Dim day As Integer = dr("生日").Day

Dim sDate As Date = new Date(Date.Today.Year, month, day)

Dim days As TimeSpan = eDate - sDate

If days.TotalDays <= 9 OrElse days.TotalDays > 365 Then

ids = ids & "," & dr("_Identify")

End If

If ids > "" Then

ids = ids.Trim(",")

messagebox.show("未来"& n &"天内是" & “姓名” & "的生日,给他们送去祝福吧.","生日提醒")

End If

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/8/14 14:36:00 [只看该作者]

Dim nms As String
Dim n As Integer = 6 '未来天数,含今天,所以实际是未来7天
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(",")
    messagebox.show("未来"& n &"天内是" & nms & "的生日,给他们送去祝福吧.","生日提醒")
End If

wh420

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1107 积分：10592 威望：0 精华：0 注册：2014/2/19 16:32:00

Post By：2020/8/14 15:01:00 [只看该作者]

收到，那如何对过生日的记录所在的行做颜色标记呢？

wh420

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1107 积分：10592 威望：0 精华：0 注册：2014/2/19 16:32:00

Post By：2020/8/14 15:08:00 [只看该作者]

只做颜色或样式标记，不做筛选。

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/8/14 15:12:00 [只看该作者]

DrawCell事件代码：

dim n as integer = 7

  Dim dt As Date = e.row("出生日期")
    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
e.style = "样式1"
    End If

[此贴子已经被作者于2020/8/14 15:12:15编辑过]

wh420

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1107 积分：10592 威望：0 精华：0 注册：2014/2/19 16:32:00

Post By：2020/8/14 15:39:00 [只看该作者]

问题解决，多谢老师。

下一主题 >> << 上一主题

主题：关于生日提醒如何输出到消息提示框