主题：列标题行的网格颜色设置

Dim t As Table = Tables("表A")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("样式1")
Dim cs2 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("样式2")
Dim cs3 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("样式3")

For i As Integer = 0 To 0
    For j As Integer = 0 To t.cols.count - 1
        If j = 0 Then
            t.Grid.SetCellStyle(i, j, cs3)
        Else
            t.Grid.SetCellStyle(i, j, cs1)
        End If
       
    Next
Next
cs1.Border.Width = 3
cs1.Border.Color = Color.Red
cs1.Border.Direction = 0
cs2.Border.Width = 3
cs2.Border.Color = Color.Red
cs2.Border.Direction = 1