Dim tb As Table = Tables("表A") Dim cs1 As C1.Win.C1FlexGrid.CellStyle = tb.Grid.Styles.Add("样式1") Dim rng As C1.Win.C1FlexGrid.CellRange = tb.Grid.GetCellRange(0,1, 0,3) '第一行第一列到第三列 cs1.font = new font("宋体", 15) cs1.backcolor = color.yellow cs1.forecolor = color.red rng.style = cs1