-- 作者:有点青
-- 发布时间:2016/11/17 18:53:00
--
Dim t As Table = Tables("表A") Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("样式1")
cs1.Border.Direction = 2 t.Grid.SetCellStyle(0, 0, cs1) t.Grid.SetCellStyle(1, 0, cs1)
|
-- 作者:Hopenight
-- 发布时间:2016/11/18 15:26:00
--
自己搞定了...
Dim grid As C1FlexGrid = .Grid With grid .Cols(0).AllowMerging = True Dim rng As C1.Win.C1FlexGrid.CellRange = .GetCellRange(0, 0, 1, 0) rng.Data = "行号"
End With
|