求助：怎样让报表中数据自动换行？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：怎样让报表中数据自动换行？

共有1919人关注过本帖树形打印复制链接主题：求助：怎样让报表中数据自动换行？

cxmxjwlmq

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：342 积分：3892 威望：0 精华：0 注册：2018/4/6 18:02:00

求助：怎样让报表中数据自动换行？ 发帖心情

Post By：2018/7/16 12:32:00 [只看该作者]

各位老师：我的报表中有一行数据，合并单元格并调，但数据比较多，需要自动换行，但不知道怎么编码，请指教！

Style.AlignHorz = XLS.AlignHorzEnum.Center '水平居中

‘自动换行

Style.AlignVert = XLS.AlignVertEnum.Center '垂直居中

请指教！

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/16 16:12:00 [只看该作者]

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=119231&skin=0

cxmxjwlmq

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：342 积分：3892 威望：0 精华：0 注册：2018/4/6 18:02:00

Post By：2018/7/16 17:43:00 [只看该作者]

老师：我是已经把行高设定好了，是合并单元格。我是通过设置格式完成的，格式如下：

Dim Style As XLS.Style = Book.NewStyle() '定义新样式:有边框,居中
    Style.FontSize = 11 '字体大小为16磅
    Style.BorderTop = XLS.LineStyleEnum.Thin
    Style.BorderBottom = XLS.LineStyleEnum.Thin
    Style.BorderLeft = XLS.LineStyleEnum.Thin
    Style.BorderRight = XLS.LineStyleEnum.Thin
    Style.BorderColorTop = Color.Black
    Style.BorderColorBottom = Color.Black
    Style.BorderColorLeft = Color.Black
    Style.BorderColorRight = Color.Black
    Style.AlignHorz = XLS.AlignHorzEnum.Center '水平居中

Style.AlignVert = XLS.AlignVertEnum.Center '自动换行
Style.AlignVert = XLS.AlignVertEnum.Center '垂直居中

就是怎样在设置格式时让它自动换行？红字的代码不会编，在帮助里也没有，请老师指教！

谢谢！