Foxtable(狐表)用户栏目专家坐堂 → 专业报表自动换行失败


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

主题:专业报表自动换行失败

帅哥哟,离线,有人找我吗?
sky-18
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:655 积分:5004 威望:0 精华:0 注册:2011/11/26 17:46:00
  发帖心情 Post By:2014/7/17 18:18:00 [只看该作者]

我就是因为在用excel报表的时候遇到合并单元格后无法自动调整行高后才转而学习专业报表的.

结果专业报表怎么也有这个类似的问题啊?

莫非合并单元格是自动行高的克星?还是狐表的开发借鉴了微软的代码啊??


 回到顶部
帅哥哟,离线,有人找我吗?
sky-18
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:655 积分:5004 威望:0 精华:0 注册:2011/11/26 17:46:00
解决了  发帖心情 Post By:2014/7/17 18:46:00 [只看该作者]

想到一个办法,既然是合并导致了无法调整行高.那么对于不用合并的行就不要去设置合并属性了.那么这个行就可以调整行高了.其他需要合并的,合并后反正也比较高,所以也不会存在"原面料"不够放的问题.于是: 在合并前加一个判断,如红色部分

 

Dim jian As New List(of Integer)
jian.AddRange(zd.Keys)
For x As Integer = 0 To jian.Count-1

if zd(jian(x)) > 1 then
    rtb.cells(jian(x)+2,0).Spanrows = zd(jian(x))
    rtb.cells(jian(x)+2,1).Spanrows = zd(jian(x))
    rtb.cells(jian(x)+2,2).Spanrows = zd(jian(x))
    rtb.Cells(jian(x)+2,0).VertSplitBehavior = prt.CellSplitBehaviorEnum.Copy
    rtb.Cells(jian(x)+2,1).VertSplitBehavior = prt.CellSplitBehaviorEnum.Copy
    rtb.Cells(jian(x)+2,2).VertSplitBehavior = prt.CellSplitBehaviorEnum.Copy

end if
Next

虽然没有从根本解决问题,但对我来说够用了.在此谢谢甜老师.如果不是你给我指出导致问题的代码也是无法解决问题.

 


 回到顶部
总数 22 上一页 1 2 3