Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
能吗?
Tables("表A").SetHeaderCellBackColor("A",Color.Red)
Tables("表A").SetHeaderCellForeColor("A",Color.YELLOW)
指定列名!
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
这个代码是表达式列必须输入公式后才能标出颜色.
谢了