以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  数据表中表达式列表题能否用颜色区分  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=15739)
--  作者：实话实说
--  发布时间：2012/1/9 19:49:00
--  数据表中表达式列表题能否用颜色区分
如题
--  作者：实话实说
--  发布时间：2012/1/10 10:02:00
--  

能吗?
--  作者：blackzhu
--  发布时间：2012/1/10 10:22:00
--  

Tables("表A").SetHeaderCellBackColor("A",Color.Red)
Tables("表A").SetHeaderCellForeColor("A",Color.YELLOW)

 

  指定列名!
--  作者：blackzhu
--  发布时间：2012/1/10 10:37:00
--  

Dim dt As Table = Tables("表A")
For Each dc As Col In dt.Cols
    If dc.DataCol.Expression <> Nothing Then
        dt.SetHeaderCellBackColor(dc.Name,Color.Red)
        dt.SetHeaderCellForeColor(dc.Name,Color.YELLOW)
    End If
Next

 

  这个代码是表达式列必须输入公式后才能标出颜色.
--  作者：实话实说
--  发布时间：2012/1/10 10:37:00
--  

谢了