日期列，隔一天用样式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 日期列，隔一天用样式

共有3232人关注过本帖树形打印复制链接主题：日期列，隔一天用样式

cyrollin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

日期列，隔一天用样式 发帖心情

Post By：2015/3/5 16:43:00 [只看该作者]

日期列

比如1,3,5,7号。。。用样式

2,4,6,8号，，，不用样式

代码怎么写呢？

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

lsy

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：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

飞飞

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：621 积分：5130 威望：0 精华：1 注册：2014/8/7 6:56:00

Post By：2015/3/5 16:53:00 [只看该作者]

哥们你知足吧

cyrollin

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：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

当日期是过去时，用灰色样式，否则用“YELLOW"样式，但不正确。

提示：isNULL 为 readonly.

cyrollin

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：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.

Bin

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/3/5 16:57:00 [只看该作者]

拜托看一下帮助,要先添加样式图片点击可在新窗口打开查看

cyrollin

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2015/3/5 16:58:00 [只看该作者]

添加了的，GRAY, YELLOW样式都添加了的。

有点甜

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

下一主题 >> << 上一主题

总数 14 1 2 下一页

主题：日期列，隔一天用样式