以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  改变列的颜色问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109059)
--  作者：zsslly
--  发布时间：2017/11/3 14:20:00
--  改变列的颜色问题？
以知以下代码可以改变列颜色：


\'指定列数据行背景颜色和字体颜色
DataTables(e.Table.DataTable.name).AddUserStyle("第一列字体颜色", Color.LightSteelBlue, Color.Black)
If e.col.name = "第一列" Then
    e.Style = "第一列字体颜色"
End If

我的“第一列”引用数据字典内容为：“放行”、“缩定”...，我想当单元格中的内容选定为“缩定”时列改变颜色，代码如何改？求指点？
--  作者：zsslly
--  发布时间：2017/11/3 14:21:00
--  
设样式为“第一列字体颜色”
--  作者：有点甜
--  发布时间：2017/11/3 14:47:00
--  


If e.col.name = "第一列" andAlso e.row("第一列") = "缩定" Then

    e.Table.DataTable.AddUserStyle("第一列字体颜色", Color.LightSteelBlue, Color.Black)
    e.Style = "第一列字体颜色"
End If
--  作者：zsslly
--  发布时间：2017/11/3 14:55:00
--  
老师您好，这样改只是改变了单元格的颜色，我想改变整列的颜色？

当第一行的单元格中内容为“缩定”时即这一列改变颜色
[此贴子已经被作者于2017/11/3 15:00:45编辑过]
--  作者：有点甜
--  发布时间：2017/11/3 15:25:00
--  
If e.Col.name = "第一列"Then
    For Each r As Row In e.Table.rows
        If r("第一列") = "缩定" Then
            e.Table.DataTable.AddUserStyle("第一列字体颜色", Color.LightSteelBlue, Color.Black)
            e.Style = "第一列字体颜色"
            Exit For
        End If
    Next
End If
--  作者：zsslly
--  发布时间：2017/11/3 15:32:00
--  
谢老师