以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  大家帮忙看一下这个代码有什么问题啊！！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52022)
--  作者：洗衣粉
--  发布时间：2014/6/7 14:16:00
--  大家帮忙看一下这个代码有什么问题啊！！
For Each dr As Row In Tables("生日备忘").Rows
    Dim dt1 As Date = Date.Today
    Dim dt2 As Date = Date.Today.AddDays(6)
    If dt1 = dr("生日") Then
        e.style = "今天生日"
    End If
    If dt2 > dr("生日") And dr("生日") > dt1 Then
        e.style = "生日将至"
    End If
Next


我用来做生日提醒的
--  作者：洗衣粉
--  发布时间：2014/6/7 14:17:00
--  
只用显示“生日将至”的样式，是怎么回事啊
--  作者：sloyy
--  发布时间：2014/6/7 14:23:00
--  
你是想问什么?
这个代码用到了2个自定义的样式,需要你先定义好
--  作者：blackzhu
--  发布时间：2014/6/7 14:50:00
--  
要遍历做啥
--  作者：洗衣粉
--  发布时间：2014/6/7 16:17:00
--  
我的 “生日备忘” 的表中，有一个 “生日” 的列，希望在生日快来的前七天给于提醒，符合的行为橘黄色，生日当天是红色，其它时间不管有什么，具体的方法呢？
--  作者：sloyy
--  发布时间：2014/6/7 16:38:00
--  

到期提醒设计

http://www.foxtable.com/help/topics/2471.htm
--  作者：zyqzyy
--  发布时间：2014/6/7 17:47:00
--  
For Each dr As Row In Tables("生日备忘").Rows
    Dim dt1 As Date = Date.Today
    Dim dt2 As Date = Date.Today.AddDays(6)
    Dim tp As TimeSpan   
    tp = dt1 - dr("生日")
    If tp =  0 Then
        e.style = "今天生日"
    ElseIf
    tp <7  And  tp> 0 Then
        e.style = "生日将至"
    End If
Next
--  作者：jianjingmaoyi
--  发布时间：2014/6/7 18:08:00
--  
试试这样:

Dim dt1 As Date = Date.Today
    Dim dt2 As Date = Date.Today.AddDays(6)
    Dim tp As TimeSpan   
    tp = dt1 - e.row("生日")
    If tp =  0 Then
        e.style = "今天生日"
    ElseIf
    tp <7  And  tp> 0 Then
        e.style = "生日将至"
    End If

放在 表事件的 drawcell  执行