帮狐爸找Bug。帮助中关于生日提醒的错误。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帮狐爸找Bug。帮助中关于生日提醒的错误。

共有8933人关注过本帖树形打印复制链接主题：帮狐爸找Bug。帮助中关于生日提醒的错误。

Fotable

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

加好友

发短信

等级：五尾狐帖子：1015 积分：6979 威望：0 精华：0 注册：2012/8/1 18:41:00

帮狐爸找Bug。帮助中关于生日提醒的错误。 发帖心情

Post By：2012/12/24 14:05:00 [只看该作者]

生日提醒的代码，有个bug。

就是当该用户的生日栏没有填写为空值的时候。也会被认为是快要过生日了

我这里做了个例子大家测试一下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:生日提醒.foxdb

muhua	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2012/12/24 14:45:00 [只看该作者] 用户已被锁定

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/12/24 17:10:00 [只看该作者]

收到

Fotable

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

加好友

发短信

等级：五尾狐帖子：1015 积分：6979 威望：0 精华：0 注册：2012/8/1 18:41:00

Post By：2012/12/25 16:18:00 [只看该作者]

以下是引用muhua在2012-12-24 14:45:00的发言：

Dim ids As String
Dim n As Integer = 9 '未来天数,含今天,所以实际是未来7天
For Each dr As DataRow In DataTables("员工").DataRows
    Dim birthday As Date
    If dr("生日").Month = 1 AndAlso dr("生日").Day < 9 Then
        birthday = Cdate(Date.Today.AddYears(1).Year & "-" & dr("生日").Month & "-" & dr("生日").Day)
    Else
        birthday = Cdate(Date.Today.Year & "-" & dr("生日").Month & "-" & dr("生日").Day)
    End If
    Dim t As TimeSpan = birthday - Date.Today
    If t.Days >0 AndAlso t.Days < 9 Then
        'If (dt1 >= Date.Today AndAlso dt1 < Date.Today.AddDays(n)) OrElse (dt2 >= Date.Today AndAlso dt2 < Date.Today.AddDays(n)) Then
        ids = ids & "," & dr("姓名")
    End If
Next
If ids > "" Then
    ids = ids.Trim(",")
    messagebox.show("未来"& n &"天内是" & ids & "的生日,给他们送去祝福吧.","生日提醒")
    'Tables("员工").filter = "[_Identify] In (" & ids &")"
End If

[此贴子已经被作者于2012-12-24 15:17:16编辑过]

muhua 你修改了哪里呀

Fotable

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

加好友

发短信

等级：五尾狐帖子：1015 积分：6979 威望：0 精华：0 注册：2012/8/1 18:41:00

Post By：2012/12/25 16:28:00 [只看该作者]

原因在于原来的代码会认为没有填写生日的人的生日是1月1日

sunbrain

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

加好友

发短信

等级：小狐帖子：383 积分：2439 威望：0 精华：0 注册：2011/12/3 22:19:00

Post By：2012/12/31 10:11:00 [只看该作者]

If ids > "" Then
    ids = ids.Trim(",")
    messagebox.show("未来"& n &"天内是" & ids & "的生日,给他们送去祝福吧.","生日提醒")
    'Tables("员工").filter = "[_Identify] In (" & ids &")"
End If

加红色部分，筛选有问题吗？怎么筛选不出结果呢？

麻烦大家帮助看看

谢谢

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/12/31 10:16:00 [只看该作者]

以下是引用sunbrain在2012-12-31 10:11:00的发言：
If ids > "" Then
    ids = ids.Trim(",")
    messagebox.show("未来"& n &"天内是" & ids & "的生日,给他们送去祝福吧.","生日提醒")
    'Tables("员工").filter = "[_Identify] In (" & ids &")"
End If

加红色部分，筛选有问题吗？怎么筛选不出结果呢？

麻烦大家帮助看看

谢谢

是指上面的例子吗？