以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [分享]SetHeaderCellForeColor  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71569)

--  作者:wyz20130512
--  发布时间:2015/7/14 9:54:00
--  [分享]SetHeaderCellForeColor
昨晚看Table的方法时,经测试发现SetHeaderCellForeColor方法不仅可以设置列标题字体的颜色,还可以设置表中数据的颜色,另SetHeaderCellBackColor和SetHeaderCellFont方法具有类似的功效。

现以SetHeaderCellForeColor方法为例说明:

假定Table的表头层数为n(n>=1)

With Tables("XXX") \'假设n=2
    For Each c As Col In .Cols
        .SetHeaderCellForeColor(c.Name,Color.Blue,0) \'0表示第一层的标题,1表示第二层的标题
    Next    
    Dim fnt As New Font("黑体",7)
    For i As Integer = 2 To .Rows.Count + 1
        \'(注意循环变量的初值与终止值,与表头的层数有关,设表头的层数为n,则初值为n,终止值为.Rows.Count + n-1)
        .SetHeaderCellForeColor("列名",Color.Red,i) \'设置指定列数据的颜色      
        .SetHeaderCellFont("列名",fnt,i) \'设置指定列数据的字体
    Next
End With

高手勿喷!
[此贴子已经被作者于2015/7/14 9:55:41编辑过]

--  作者:y2287958
--  发布时间:2015/7/14 10:01:00
--  
分享就是美德
--  作者:hanxuntx
--  发布时间:2015/7/14 10:02:00
--  
不错
--  作者:大红袍
--  发布时间:2015/7/14 10:03:00
--  
 不错,第一次看到这种用法