专家坐堂-如何让满足条件的行变成特定的颜色啊？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何让满足条件的行变成特定的颜色啊？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53085)

--  作者：洗衣粉
--  发布时间：2014/6/29 15:22:00
--  如何让满足条件的行变成特定的颜色啊？
比如我想让生日临近
此主题相关图片如下：360截图20140629151024024.jpg

七天的那一行颜色变为红色，怎么弄啊？
看了帮助，那好像只有对单元格可以做设置啊，对整个行怎么弄啊？求大神解答，最好能给一个简单的代码示例

--  作者：有点甜
--  发布时间：2014/6/29 15:25:00
--

代码

Dim n As Integer = 6 \'未来天数,含今天,所以实际是未来7天

Dim dt As Date = e.Row("出生日期")
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
    e.style = "生日样式"
End If

[此贴子已经被作者于2014-6-29 15:27:48编辑过]

--  作者：洗衣粉
--  发布时间：2014/6/29 15:36:00
--

以下是引用有点甜在2014-6-29 15:25:00的发言：

代码

Dim n As Integer = 6 \'未来天数,含今天,所以实际是未来7天

Dim dt As Date = e.Row("出生日期")
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
    e.style = "生日样式"
End If

[此贴子已经被作者于2014-6-29 15:27:48编辑过]
是要在绘制单元格里样式是吗？

--  作者：洗衣粉
--  发布时间：2014/6/29 15:38:00
--
在自定义样式里面？

--  作者：有点甜
--  发布时间：2014/6/29 15:45:00
--

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

--  作者：洗衣粉
--  发布时间：2014/6/29 15:48:00
--
嗯，谢谢

--  作者：洗衣粉
--  发布时间：2014/6/29 16:19:00
--  求教
为什么
不会变成单元格显示颜色呢？而是整行显示颜色呢？

此主题相关图片如下：360截图20140629161349569.jpg

--  作者：有点甜
--  发布时间：2014/6/29 16:21:00
--

呃，请看2楼的代码。

简单一些，是这样

If e.Row("总分") < 360 Then
    e.Style = "不及格"
End If

--  作者：洗衣粉
--  发布时间：2014/6/29 17:19:00
--

Dim n As Integer = 6 \'未来天数,含今天,所以实际是未来7天
Dim dat As Date = Date.Today
Dim dt As Date = e.Row("生日")
Dim ln As New Lunar(e.Row("生日"))
Dim d As Date = ln.SolarDate
Dim dt1 As New Date(Date.Today.Year,dt.Month,dt.Day)
Dim dt11 As New Date(Date.Today.Year,d.Month,d.Day)
Dim dt2 As New Date(Date.Today.AddDays(n).Year,dt.Month,dt.Day)
Dim dt22 As New Date(Date.Today.AddDays(n).Year,d.Month,d.Day)
If e.Row("农历阴历") = False Then
If (dt1 > Date.Today AndAlso dt1 < Date.Today.AddDays(n)) OrElse (dt2 > Date.Today AndAlso dt2 < Date.Today.AddDays(n)) Then
e.style = "生日将至"
ElseIf dt = dat Then
e.style = "今天生日"
End If
Else
If (dt11 > Date.Today AndAlso dt11 < Date.Today.AddDays(n)) OrElse (dt22 > Date.Today AndAlso dt22 < Date.Today.AddDays(n)) Then
e.style = "生日将至"
ElseIf d = dat Then
e.style = "今天生日"
End If
End If

看一下这句代码有什么错误吗？

--  作者：有点甜
--  发布时间：2014/6/29 17:22:00
--

Dim n As Integer = 6 \'未来天数,含今天,所以实际是未来7天

Dim dt As Date = e.Row("出生日期")
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 dt = dt1 Then
    e.style = "今天生日"
Else If (dt1 >= Date.Today AndAlso dt1 < Date.Today.AddDays(n)) OrElse (dt2 >= Date.Today AndAlso dt2 < Date.Today.AddDays(n)) Then
    e.style = "生日将至"
End If