大家帮忙看一下这个代码有什么问题啊！！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 大家帮忙看一下这个代码有什么问题啊！！

共有3475人关注过本帖树形打印复制链接主题：大家帮忙看一下这个代码有什么问题啊！！

洗衣粉

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：101 积分：749 威望：0 精华：0 注册：2014/3/16 8:46:00

大家帮忙看一下这个代码有什么问题啊！！ 发帖心情

Post By：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

我用来做生日提醒的

洗衣粉

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：101 积分：749 威望：0 精华：0 注册：2014/3/16 8:46:00

Post By：2014/6/7 14:17:00 [显示全部帖子]

只用显示“生日将至”的样式，是怎么回事啊

洗衣粉

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：101 积分：749 威望：0 精华：0 注册：2014/3/16 8:46:00

Post By：2014/6/7 16:17:00 [显示全部帖子]

我的 “生日备忘” 的表中，有一个 “生日” 的列，希望在生日快来的前七天给于提醒，符合的行为橘黄色，生日当天是红色，其它时间不管有什么，具体的方法呢？

主题：大家帮忙看一下这个代码有什么问题啊！！