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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]专业报表换行

共有3105人关注过本帖树形打印复制链接主题：[求助]专业报表换行

有点甜

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

加好友

发短信

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

Post By：2018/12/10 8:48:00 [显示全部帖子]

试试这样处理

http://www.foxtable.com/webhelp/scr/1184.htm

有点甜

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

加好友

发短信

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

Post By：2018/12/10 10:58:00 [显示全部帖子]

你里面又嵌入了一个table？如果是，比较麻烦，你做个实例发上来测试吧。

有点甜

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

加好友

发短信

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

Post By：2018/12/10 11:34:00 [显示全部帖子]

以下是引用zcgmxf在2018/12/10 11:14:00的发言：
老师，我不是嵌入的table 而是整个就是一张表。可能有几百行，是不是我的设计思路有问题啊。

[此贴子已经被作者于2018/12/10 11:14:00编辑过]

实例发上来测试吧。测试才知道你的是什么问题。

有点甜

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

加好友

发短信

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

Post By：2018/12/10 15:08:00 [显示全部帖子]

比如代码

    If r.IsNull("结果建议") = False Then
        rt.Cells(t+15,1).SpanCols = 9
        Dim s1 As String = r("结果建议")
        Dim s2 As String = s1.Replace("】","】" & vbcrlf)
        Dim s3 As String = s2.Replace("。","。" & vbcrlf)
        rt.Cells(t+15,1).Text = s3.TrimStart()
        rt.Cells(t+15,1).SpanRows = 10
        rt.cells(t+15, 0).SpanRows = 10
        rt.Rows(t+15).Style.LineSpacing = 150
        '   rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never
        rt.Rows(t+15).Style.TextAlignHorz = prt.AlignHorzEnum.left
        rt.Rows(t+15).CellStyle.Padding.Top = 1

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1 (1).foxdb

下一主题 >> << 上一主题

主题：[求助]专业报表换行