Dim t As Table = Tables(TableName)
Dim cr1 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("a") ' 创建一个新的自定义样式
cr1.BackColor = Color.White
cr1.ForeColor = Color.Red
' 将新的样式分配到一列。
t.Grid.Cols(3).Style = t.Grid.Styles("a")
' 将新的样式分配到一行。
t.Grid.Rows(3).Style = t.Grid.Styles("a")
' 将新的样式分配到一个单元格区域。
Dim rg As C1.Win.C1FlexGrid.CellRange = t.Grid.GetCellRange(4, 4, 6, 6)
rg.Style = t.Grid.Styles("a")