以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请教关于合并列的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68331)
--  作者：xiaoqiwei
--  发布时间：2015/5/14 22:32:00
--  [求助]请教关于合并列的问题
请问关于合并列的问题，如何才能实现根据条件才合并呢？例如我只想合并单元格为空的单元格才合并，其他都不合并 还有就是打印窗口表时，存在合并列打印出来的效果也还是存在单元格线条的，并不是打印出合并后的效果，这个有办法实现吗？
[此贴子已经被作者于2015/5/14 22:36:06编辑过]
--  作者：大红袍
--  发布时间：2015/5/14 22:52: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, 2, 2)
tb.Grid.MergedRanges.Add(rng)

 

  直接打印，如果不能合并，那也得自己修改 doc 对象去实现

 

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

For Each c As object In Doc.Body.Children
    If c.Gettype.name Like "*table*" Then
        c.Style.GridLines.All = Nothing \'将网格线类型设为默认类型
    End If
Next

doc.Preview()
--  作者：xiaoqiwei
--  发布时间：2015/5/15 0:25:00
--  
受教了，感谢！