主题：生日提醒设计

以下以我上传的附件为例说明问题

在表“客户信息”中包含---客户ID、姓名、出生日期三列数据。并有“提示”窗口

当软件打开时

如果明天有两个过生日，会自动弹跳出“提示”窗口。提示窗口显示为“明天生日两人”。点击此条信息，在表中显示出明天过生日的两条信息。请问如何实现？？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1_0817.zip

这个会了

其他的提醒就都会了

不知道狐爸能不能看到，个人感觉这个功能很重要

当然，这个提醒本来就比一般的提醒要复杂的。

设置在AfterOpenProject事件：

Dim ids As String
Dim cnt As Integer
Dim nms As String
For Each dr As DataRow In DataTables("客户信息").DataRows
   Dim dt As Date = dr("出生日期")
   dt =  New Date(Date.Today.Year,dt.Month,dt.Day)
    If Date.Today.AddDays(1) = dt Then
        cnt = cnt + 1
        ids = ids & "," & dr("_Identify")
        nms = nms & "," & dr("姓名")
    End If
Next
If cnt > 0 Then
     messagebox.show("有" & cnt & "个客户明天生日, 分别是:  " & nms.Trim(","))
     Tables("客户信息").filter = "[_Identify] In (" & ids.Trim(",") &")"
End If

Dim Birth As Date
Dim BirthPl As Integer
For Each dr As DataRow In DataTables("客户信息").DataRows
   Birth = dr("出生日期")
If (birth.Month=Date.Today.Month)
  If (birth.Day=Date.Today.AddDays(1).Day)
BirthPl=BirthPl +1

End If
End If
Next

MessageBox.Show("生日"+str(BirthPl)+"人")