Foxtable(狐表) → 用户栏目 → 专家坐堂 → 相同值的行的颜色表示


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

主题：相同值的行的颜色表示
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9492 威望：0 精华：0 注册：2013/5/12 9:22:00 		  发帖心情 Post By：2018/4/1 11:28:00 [显示全部帖子]

Dim paint As Boolean
With Tables("进项税")
    .Sort = "销售方"
    For i As Integer = 1 To .Rows.Count -1
        If .Rows(i)("销售方") <> .Rows(i-1)("销售方") Then
            paint = Not paint
        End If
        If paint Then
            .SetHeaderCellBackColor("销售方",Color.Cyan,i+1)
        Else
            .SetHeaderCellBackColor("销售方",Color.Orchid,1)
            .SetHeaderCellBackColor("销售方",Color.Orchid,i+1)
        End If
    Next
End With

效果如下图：

图片点击可在新窗口打开查看此主题相关图片如下：交替染色.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/4/1 11:59:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9492 威望：0 精华：0 注册：2013/5/12 9:22:00 		回复：（WELOVEFOX）如果列名有带有 "_" ,即带有换行显...  发帖心情 Post By：2018/4/1 13:12:00 [显示全部帖子]

修改i的初始值即可！ 

[此贴子已经被作者于2018/4/1 13:45:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9492 威望：0 精华：0 注册：2013/5/12 9:22:00 		回复：（jackchan120925）非常感谢，测试了一下，指定...  发帖心情 Post By：2018/4/1 13:45:00 [显示全部帖子]

'--------------------交替染色------------------------------
Dim paint As Boolean
With Tables("进项税")
    .Sort = "销售方"
    For i As Integer = 1 To .Rows.Count -1
        If .Rows(i)("销售方") <> .Rows(i-1)("销售方") Then
            paint = Not paint
        End If
        If paint Then
            For Each c As Col In .Cols
                .SetHeaderCellBackColor(c.Name,Color.Cyan,i+1)
            Next
        Else
            For Each c As Col In .Cols
                .SetHeaderCellBackColor(c.Name,Color.Orchid,1)
                .SetHeaderCellBackColor(c.Name,Color.Orchid,i+1)
            Next
        End If
    Next
End With
'---------------------------------------------------------

效果如下：

图片点击可在新窗口打开查看此主题相关图片如下：交替染色02.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/4/1 13:50:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9492 威望：0 精华：0 注册：2013/5/12 9:22:00 		回复：（jackchan120925）非常感谢，我研究下。我看截...  发帖心情 Post By：2018/4/1 14:17:00 [显示全部帖子]

在2楼的基础上，遍历所有列即可！
截图是我的测试数据。自己做的一个辅助报税的小东东。
[此贴子已经被作者于2018/4/1 14:18:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9492 威望：0 精华：0 注册：2013/5/12 9:22:00 		回复：（shenyl0211）顶2楼，很实用，更易区分内容，建...  发帖心情 Post By：2018/4/1 14:20:00 [显示全部帖子]

感谢3楼的完善，使之更具通用性！

 回到顶部
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 次数据查询