Foxtable(狐表)用户栏目专家坐堂 → [求助]请教关于合并列的问题


  共有2556人关注过本帖树形打印复制链接

主题:[求助]请教关于合并列的问题

帅哥哟,离线,有人找我吗?
xiaoqiwei
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:668 积分:8555 威望:0 精华:0 注册:2011/5/5 23:55:00
[求助]请教关于合并列的问题  发帖心情 Post By:2015/5/14 22:32:00 [只看该作者]

请问关于合并列的问题,如何才能实现根据条件才合并呢?例如我只想合并单元格为空的单元格才合并,其他都不合并 还有就是打印窗口表时,存在合并列打印出来的效果也还是存在单元格线条的,并不是打印出合并后的效果,这个有办法实现吗?
[此贴子已经被作者于2015/5/14 22:36:06编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:668 积分:8555 威望:0 精华:0 注册:2011/5/5 23:55:00
  发帖心情 Post By:2015/5/15 0:25:00 [只看该作者]

受教了,感谢!

 回到顶部