Foxtable(狐表)用户栏目专家坐堂 → [求助]请教一下如何根据编号交替背景颜色?


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

主题:[求助]请教一下如何根据编号交替背景颜色?

帅哥哟,离线,有人找我吗?
jimmyhwang
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:178 积分:1228 威望:0 精华:0 注册:2014/1/23 0:48:00
[求助]请教一下如何根据编号交替背景颜色?  发帖心情 Post By:2014/3/27 2:36:00 [显示全部帖子]

编号相同的一个颜色。交替呈现。如此。。在Table上呈现。。
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140327023228.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
jimmyhwang
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:178 积分:1228 威望:0 精华:0 注册:2014/1/23 0:48:00
  发帖心情 Post By:2014/3/27 12:52:00 [显示全部帖子]

编号只是会按照如2个相同或者3个相同这样的规则。没有按照循序排列。

 回到顶部
帅哥哟,离线,有人找我吗?
jimmyhwang
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:178 积分:1228 威望:0 精华:0 注册:2014/1/23 0:48:00
  发帖心情 Post By:2014/3/27 15:32:00 [显示全部帖子]

e.Table.DataTable.AddUserStyle("按编号交替背景色奇",Color.MediumPurple,Color.Black)
e.Table.DataTable.AddUserStyle("按编号交替背景色偶",Color.SkyBlue,Color.Black)
Dim vals As List(Of String) = e.Table.DataTable.GetValues("第二列","第二列 Is Not Null")

For i As Integer = 0 To vals.Count - 1
    If e.Row("第二列") = vals(i) AndAlso i Mod 2 = 1 Then
        e.Style = "按编号交替背景色奇"
    ElseIf e.Row("第二列") = vals(i) AndAlso i Mod 2 = 0 Then
        e.Style = "按编号交替背景色偶"
    End If
Next

 

我只用了这个代码,把第二列改成“编号”。在批量导入时颜色交替没有按照要求实现。另外如果更改背景颜色,不会生效。


 回到顶部