[求助]数据表内行的颜色 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]数据表内行的颜色

共有3404人关注过本帖树形打印复制链接主题：[求助]数据表内行的颜色

cjz7120641

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

加好友

发短信

等级：幼狐帖子：57 积分：554 威望：0 精华：0 注册：2015/5/10 17:46:00

[求助]数据表内行的颜色 发帖心情

Post By：2015/5/15 10:30:00 [只看该作者]

我想请问下狐表的数据表能不能根据表中第一列的内容，相同的一个颜色，下一个不同的就不一样的颜色，就是和交替行颜色差不多的意思，但是比交替行智能点！

就像附件那样根据订单编号同一个订单一个颜色第二个订单另一个颜色第三个订单又是第一个订单的颜色，这样能不能实现？要怎么实现
图片点击可在新窗口打开查看

此主题相关图片如下：未标题-1.jpg

unverse

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

加好友

发短信

等级：五尾狐帖子：1088 积分：8247 威望：0 精华：4 注册：2012/3/31 18:08:00

Post By：2015/5/15 10:32:00 [只看该作者]

参考帮助中的DRAWCELL

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/15 10:39:00 [只看该作者]

drawcell事件，代码

e.Table.DataTable.AddUserStyle("样式1", color.Red, Color.Black)
e.Table.DataTable.AddUserStyle("样式2", color.blue, Color.Black)

static pys As String = ""
static pr As Row = Nothing
If e.Row.Index = 0 Then
    pys = "样式1"
Else
    If e.Row("第一列") <> pr("第一列") Then
        If pys = "样式1"
            pys = "样式2"
        Else
            pys = "样式1"
        End If
    End If
End If
pr = e.Row
e.Style = pys