-- 作者:大红袍
-- 发布时间:2016/7/27 21:40:00
--
只能临时性的改一改
Dim tb As Table = Tables("表A") tb.Grid.AllowMerging = C1.Win.C1FlexGrid.AllowMergingEnum.Custom Dim rng As C1.Win.C1FlexGrid.CellRange = tb.Grid.GetCellRange(1, 1, 1, 3) tb.Grid.MergedRanges.add(rng)
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = tb.Grid.Styles.Add("样式1") cs1.TextAlign = 4 rng.style = cs1
|