- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]专业报表换行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128532)
-- 发布时间：2018/12/10 7:45:00
-- [求助]专业报表换行
老师，这个跨页换行硬是做不好，同一行内容上页打不完，下页结着打印该如何处理。谢谢！
此主题相关图片如下：qq图片20181210074408.png
-- 发布时间：2018/12/10 8:48:00
--
试试这样处理
http://www.foxtable.com/webhelp/scr/1184.htm
-- 发布时间：2018/12/10 9:55:00
--
老师，这个我试过就变成了下面这个样子了。
此主题相关图片如下：qq图片20181210093736.png
-- 发布时间：2018/12/10 10:58:00
--
你里面又嵌入了一个table？如果是，比较麻烦，你做个实例发上来测试吧。
-- 发布时间：2018/12/10 11:14:00
--
老师，我不是嵌入的table 而是整个就是一张表。可能有几百行， 是不是我的设计思路有问题啊。
[此贴子已经被作者于2018/12/10 11:14:00编辑过]
-- 发布时间：2018/12/10 11:34:00
--
以下是引用zcgmxf在2018/12/10 11:14:00的发言：
老师，我不是嵌入的table 而是整个就是一张表。可能有几百行， 是不是我的设计思路有问题啊。
老师，我不是嵌入的table 而是整个就是一张表。可能有几百行， 是不是我的设计思路有问题啊。
[此贴子已经被作者于2018/12/10 11:14:00编辑过]
实例发上来测试吧。测试才知道你的是什么问题。
-- 发布时间：2018/12/10 12:33:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：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 |
-- 发布时间：2019/7/6 12:07:00
--
老师，下面这段代码合并的列不同显示的文字有差别，有几个字没有了，是怎么回事？这个表 一共十列 。谢谢！
rt1.Cells(t1+tt1+159+hn+ xcg,0).SpanCols = 10
rt1.Cells(t1+tt1+159+hn + xcg,0).SpanRows = 2
Dim ra94 As prt.RenderArea
ra94 = rt1.Cells(t1+tt1+159+hn + xcg,0).Area \'引用第一个单元格的容器.
Dim rx200 As New prt.RenderText
rx200.Text = "小 结："
rx200.Style.Font = New Font("宋体", 11, FontStyle.Bold)
rx200.x = "0"
rx200.y = "0"
ra94.Children.Add(rx200)
Dim rx201 As New prt.RenderText
Dim dfr As DataRow = DataTables("检验结果").Find("编号 = \'" & r("编号") & "\'")
If dfr IsNot Nothing Then
rx201.Text = dfr("血样_结果诊断")
Else
rx201.Text = ""
End If
rx201.x = "20"
rx201.y = "0"
ra94.Children.Add(rx201)
此主题相关图片如下：qq图片20190706120219.png
如果 rt1.Cells(t1+tt1+159+hn+ xcg,0).SpanCols = 9
此主题相关图片如下：qq图片20190706120339.png
[此贴子已经被作者于2019/7/6 12:08:31编辑过]
-- 发布时间：2019/7/6 13:47:00
--
合并的列不够多，合并单元格不够宽，当然就显示不全了