- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]当天日期显示红色代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75171)
-- 发布时间：2015/9/29 11:03:00
-- [求助]当天日期显示红色代码
表A中有日期列，如果日期列是当天日期（即今天），则该行的所有内容都显示红色，请前辈老师写个代码，谢谢！
-- 发布时间：2015/9/29 11:04:00
--
If e.row("日期") = Date.Today Then
e.Style = "样式1"
End If
http://www.foxtable.com/help/topics/0656.htm
-- 发布时间：2015/9/29 11:10:00
--
老师：未成功，请帮忙再修改一下，谢谢！
-- 发布时间：2015/9/29 11:20:00
--
对不起老师，是我把代码填错了，谢谢！
-- 发布时间：2015/9/29 11:20:00
--
If e.row("日期") >= Date.Today AndAlso e.row("日期") < Date.Today.AddDays(1) Then
e.Style = "样式1"
End If
-- 发布时间：2015/9/29 11:30:00
--
谢谢老师！再请帮忙：如果窗口中绑定表A中字段列的字，也随着表A中的字段改变顔色，那代码又如何写呢？谢谢！
-- 发布时间：2015/9/29 11:34:00
--
窗口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
-- 发布时间：2015/9/29 12:08:00
--
谢谢老师！但是上面这段代码只显示了窗口中绑定的日期列，如果还有其他绑定表A中的其他列，如第一列、第二列、第三列等字段中，也同时跟随表A中的顔色而变化，那代码又如何修改呢？谢谢！
-- 发布时间：2015/9/29 14:33:00
--
呃.....
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
-- 发布时间：2015/9/29 16:06:00
--
老师：这里又发现一个问题，就是窗口字段的顔色不随窗口表中的字段顔色而变化，也许我没表达清楚，我想窗口表中，当天日期行是红色，则绑定的字段的内容也为红色，如果点击或输入表中的日期不是当天的日期，则表中字体是黑色，窗口绑定的字段的字体也为黑色。还望老师再帮忙修改，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:窗口字段顔色.table |