主题：生日提醒窗体设计

请教bin老师：在生日提醒窗体中显示表a中未来7天内过生日的客户

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

点击浏览该文件:管理项目12.table

 参考着做

 

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

 

 如下

 

 

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

点击浏览该文件:管理项目12.table

没有搞懂

 

  那就看3楼

谢谢 但是我发现还有一个小小的瑕疵 比如说未来7天没有客户过生日 就显示全部客户了  我改改开让人提示说没有客户生日

 代码

 

Dim nms As String
Dim n As Integer = 6 '未来天数,含今天,所以实际是未来7天
For Each dr As DataRow In DataTables("表A").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("_Identify") & "'"
    End If
Next
If nms > "" Then
    nms = nms.Trim(",")
    Tables("生日提醒_Table1").filter = "[_Identify] In (" & nms &")"
Else
    Tables("生日提醒_Table1").filter = "false"
End If

谢谢  有点甜老师 你真厉害