Dim t As Table = Tables("表A")Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("样式1")
cs1.Border.Direction = 2t.Grid.SetCellStyle(0, 0, cs1)t.Grid.SetCellStyle(1, 0, cs1)