主题：[求助] 合并单元格

只能临时性的改一改

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