专家坐堂-到期自动变色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=60513)

--  作者：漂亮美眉vszh
--  发布时间：2014/11/26 9:01:00
--  到期自动变色

想快要到达日期前7天变颜色、非空的（没填日期的行不变色）在表属性写了这句代码，但不对，求助如何更改~~

\'If e.Col.Name = "保固金到期日" Then
    \'If e.Row("保固金到期日") <> "" Then
        \'If e.Row("保固金到期日") < Date.Today.AddDays(7) Then
            \'e.Style = "DQ"
        \'End If
    \'End If
\'End If

此主题相关图片如下：1.jpg

--  作者：有点甜
--  发布时间：2014/11/26 9:09:00
--
If e.Col.Name = "保固金到期日" Then
    If e.Row.IsNull("保固金到期日") = False Then
        If e.Row("保固金到期日") < Date.Today.AddDays(7) Then
            e.Style = "DQ"
        End If
    End If
End If

--  作者：漂亮美眉vszh
--  发布时间：2014/11/27 14:38:00
--
测试不通过~~咋回事？
此主题相关图片如下：1.jpg

--  作者：有点甜
--  发布时间：2014/11/27 14:42:00
--
If e.Col.Name = "保固金到期日" Then
    If e.Row.IsNull("保固金到期日") = False Then
        If e.Row("保固金到期日") < Date.Today.AddDays(7) AndAlso e.Row("保固金到期日") >= Date.Today Then
            e.Style = "DQ"
        End If
    End If
End If