主题：[求助]当天日期显示红色代码

表A中有日期列，如果日期列是当天日期（即今天），则该行的所有内容都显示红色，请前辈老师写个代码，谢谢！

If e.row("日期") = Date.Today Then

    e.Style = "样式1"

End If

 

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

 

老师：未成功，请帮忙再修改一下，谢谢！

对不起老师，是我把代码填错了，谢谢！

If e.row("日期") >= Date.Today AndAlso e.row("日期") < Date.Today.AddDays(1) Then

    e.Style = "样式1"

End If

谢谢老师！再请帮忙：如果窗口中绑定表A中字段列的字，也随着表A中的字段改变顔色，那代码又如何写呢？谢谢！

窗口afterLoad、表CurrentChanged

 

If Forms("窗口1").Opened Then
    Dim r As Row = Tables("表A").Current
    If r IsNot Nothing Then
        If r("日期") >= Date.Today AndAlso r("日期") < Date.Today.AddDays(1) Then
            Forms("窗口1").controls("TextBox1").ForeColor = Color.Red
        End If
    End If
End If

谢谢老师！但是上面这段代码只显示了窗口中绑定的日期列，如果还有其他绑定表A中的其他列，如第一列、第二列、第三列等字段中，也同时跟随表A中的顔色而变化，那代码又如何修改呢？谢谢！

呃.....

 

If Forms("窗口1").Opened Then
    Dim r As Row = Tables("表A").Current
    If r IsNot Nothing Then
        If r("日期") >= Date.Today AndAlso r("日期") < Date.Today.AddDays(1) Then
            Forms("窗口1").controls("TextBox1").ForeColor = Color.Red

            Forms("窗口1").controls("TextBox2").ForeColor = Color.Red

            Forms("窗口1").controls("TextBox3").ForeColor = Color.Red
        End If
    End If
End If

老师：这里又发现一个问题，就是窗口字段的顔色不随窗口表中的字段顔色而变化，也许我没表达清楚，我想窗口表中，当天日期行是红色，则绑定的字段的内容也为红色，如果点击或输入表中的日期不是当天的日期，则表中字体是黑色，窗口绑定的字段的字体也为黑色。还望老师再帮忙修改，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:窗口字段顔色.table