Dim t As Table = Tables("表A") Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("样式1")
cs1.forecolor = Color.red cs1.backcolor = Color.yellow cs1.Border.Width = 3 cs1.Border.Color = Color.Red cs1.Border.Direction = 0 For i As Integer = 0 To 0 For j As Integer = 1 To t.cols.count t.Grid.SetCellStyle(i, j, cs1) Next Next