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

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

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

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

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

以下是引用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 你修改了哪里呀

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

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

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

麻烦大家帮助看看

谢谢

帅选指令确实有错误，应该是 Tables("员工").filter = "[_Identify] In ('" & ids &"')"

主题：帮狐爸找Bug。帮助中关于生日提醒的错误。