主题：如何设置生日提醒

此主题相关图片如下：1.jpg

http://www.foxtable.com/help/topics/2476.htm

 

我早照做了，共有7条，但只显示1条记录，其余记录没有了。也没有生日提醒。

我想做生日弹出窗口提示的那种。

把例子发上来

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

点击浏览该文件:管理项目1 - 副本 (2).zip

没看到你做的例子啊.你写的生日提醒在哪里?

麻烦请给我看一下，往哪里写好呀。

不明白你想干嘛,生日提醒按照帮助的做就可以了 http://www.foxtable.com/help/topics/2476.htm

新建一个窗口，插入一个Table控件，绑定到会员资料，作为副本。

 

窗口AfterLoad事件：

 

Dim ids 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
        ids = ids & "," & dr("_Identify")
    End If
Next
If ids > "" Then
    ids = ids.Trim(",")
    Tables("窗口1_Table1").filter = "[_Identify] In (" & ids &")"
Else
    Tables("窗口1_Table1").filter  = "[_Identify] Is Null"
End If

 

这样打开这个窗口，就会列出今天生日的会员。