主题：数据表中表达式列表题能否用颜色区分

能吗?

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

  这个代码是表达式列必须输入公式后才能标出颜色.

谢了