- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 生日提醒窗体设计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50823)
-- 发布时间：2014/5/14 10:53:00
-- 生日提醒窗体设计
请教bin老师：在生日提醒窗体中显示表a中未来7天内过生日的客户
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目12.table |
-- 发布时间：2014/5/14 10:56:00
--
参考着做
http://www.foxtable.com/help/topics/2476.htm
-- 发布时间：2014/5/14 11:06:00
--
如下
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目12.table |
-- 发布时间：2014/5/14 11:16:00
--
没有搞懂
不会
-- 发布时间：2014/5/14 11:18:00
--
以下是引用wjliu在2014-5-14 11:16:00的发言：
没有搞懂
没有搞懂
不会
那就看3楼
-- 发布时间：2014/5/14 11:25:00
--
谢谢 但是我发现还有一个小小的瑕疵 比如说未来7天没有客户过生日 就显示全部客户了 我改改开让人提示说没有客户生日
-- 发布时间：2014/5/14 11:32:00
--
代码
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
-- 发布时间：2014/5/14 12:57:00
--
谢谢 有点甜老师 你真厉害