-- 作者:大红袍
-- 发布时间:2016/5/19 19:53: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, 4, tb.rows.count, 4) tb.Grid.MergedRanges.add(rng)
|