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


  共有3100人关注过本帖树形打印复制链接

主题：日期列，隔一天用样式
帅哥哟，离线，有人找我吗？
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号，，，不用样式

代码怎么写呢？
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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. 
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/3/5 16:58:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/3/5 16:59:00 [显示全部帖子]

添加了的，可是代码不正确


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20150305165842.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/3/5 17:02:00 [显示全部帖子]

哦， ELSE IF 学到了，谢谢上面的各位老师，特别是TIANTIAN 

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询