主题：单元格底色

Dim t As Table = Tables("表A")

Dim cr1 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("a") ' 创建一个新的自定义样式

cr1.BackColor = Color.Red

cr1.ForeColor = Color.White

Dim rg As C1.Win.C1FlexGrid.CellRange = t.Grid.GetCellRange(t.RowSel + 1, t.ColSel + 1, t.RowSel + 1, t.ColSel + 1)

rg.Style = cr1