主题：如何显示单元格的颜色

這個應該是老大無心插柳了

  这样也行啊，以为只针对多层列标题的呢···  谢谢。

有图为证：

 

 
此主题相关图片如下：7.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目12.table

感觉这样比drewcell 事件还要好，系统更快捷！

借此机会，再来一个不利用drewcell 事件改变整行的代码：

 

If e.DataCol.name = "数量"
    For Each cl As Col In CurrentTable.Cols
        Dim r As Integer = Tables("表A").FindRow(e.DataRow)+1
        If e.DataRow("数量") < 60
            Tables("表A").SetHeaderCellBackColor(cl.name,Color.Red,r)
        ElseIf e.DataRow("数量") > 85
            Tables("表A").SetHeaderCellBackColor(cl.name,Color.Green,r)
        Else
            Tables("表A").SetHeaderCellBackColor(cl.name,Color.White,r)
        End If
    Next
End If

强烈建议ft的大拿抛掉drawcell，综合高手们提供的着色方法改进ft的。