内部函数：TableThemeDim t As Table = Args(0)
Dim 样式 As Table = Args(1)
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add(样式)
if 样式 = "cs1" then
cs1.forecolor = Color.red '表头字体颜色
cs1.backcolor = Color.yellow '表头背景颜色
……
else
cs1.forecolor = Color.red '表头字体颜色
cs1.backcolor = Color.pink '表头背景颜色
……
end if
'表头颜色---------------------------------------------------------------------
For i As Integer = 0 To t.HeaderRows - 1 '表头行数
For j As Integer = 0 To t.cols.count '所有列，0为行号列，不含行号列就由1开始
t.Grid.SetCellStyle(i, j, cs1)
Next
Next
加好友 
发短信
Post By：2022/8/15 21:58:00 [显示全部帖子]
