- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 日期列，隔一天用样式 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64945)
-- 发布时间：2015/3/5 16:43:00
-- 日期列，隔一天用样式
日期列
比如1,3,5,7号。。。用样式2,4,6,8号，，，不用样式
代码怎么写呢？
-- 发布时间：2015/3/5 16:45:00
--
参考帮助http://www.foxtable.com/help/topics/0656.htm
if e.col.name="日期" then
if e.row(e.col.name).day mod 2 <> 0 then
e.style="自定义样式"
end if
end if
-- 发布时间：2015/3/5 16:45:00
--
If e.Row.IsNull("日期列") = False AndAlso CDate(e.Row("日期列")).Day Mod 2 = 1 Then
e.Style = "样式1"
End If
-- 发布时间：2015/3/5 16:47:00
--
e.Table.DataTable.AddUserStyle("单日",Color.Red,Color.Black)
If e.Col.Name = "日期" Then
If e.Row(e.Col).Day Mod 2 <> 0 Then
e.Style = "单日"
End If
End If
-- 发布时间：2015/3/5 16:53:00
--
哥们你知足吧
-- 发布时间：2015/3/5 16:56:00
--
我用了 TIANTIAN 老师的代码，并且改了一下，这样：
以下内容为程序代码:
1 If e.Row("日期")＜Date.Today() AndAlso e.Row.IsNull("日期") = False Then
2 e.style="gray"
3 Else e.Row.IsNull("日期") = False AndAlso CDate(e.Row("日期")).Day Mod 2 = 1 Then
4 e.Style = "yellow"
5 End If
1 If e.Row("日期")＜Date.Today() AndAlso e.Row.IsNull("日期") = False Then
2 e.style="gray"
3 Else e.Row.IsNull("日期") = False AndAlso CDate(e.Row("日期")).Day Mod 2 = 1 Then
4 e.Style = "yellow"
5 End If
当日期是过去时，用灰色样式，否则用“YELLOW"样式，但不正确。
提示：isNULL 为 readonly.
-- 发布时间：2015/3/5 16:56:00
--
If e.Row("日期")<Date.Today() AndAlso e.Row.IsNull("日期") = False Then
e.style="gray"
Else e.Row.IsNull("日期") = False AndAlso CDate(e.Row("日期")).Day Mod 2 = 1 Then
e.Style = "yellow"
End If
当日期是过去时，用灰色样式，否则用“YELLOW"样式，但不正确。
提示：isNULL 为 readonly.
-- 发布时间：2015/3/5 16:57:00
--
拜托看一下帮助,要先添加样式
-- 发布时间：2015/3/5 16:58:00
--
添加了的，GRAY, YELLOW样式都添加了的。
-- 发布时间：2015/3/5 16:58:00
--
If e.Row("日期")<Date.Today() AndAlso e.Row.IsNull("日期") = False Then
e.style="gray"
Else If e.Row.IsNull("日期") = False AndAlso CDate(e.Row("日期")).Day Mod 2 = 1 Then
e.Style = "yellow"
End If