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

老师，这个跨页换行硬是做不好，同一行内容上页打不完，下页结着打印该如何处理。谢谢！

此主题相关图片如下：qq图片20181210074408.png

老师，这个我试过就变成了下面这个样子了。

此主题相关图片如下：qq图片20181210093736.png

老师，我不是嵌入的table 而是整个就是一张表。可能有几百行，是不是我的设计思路有问题啊。

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

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

老师，下面这段代码合并的列不同显示的文字有差别，有几个字没有了，是怎么回事？这个表一共十列。谢谢！

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编辑过]

老师，我合并九列可以全部显示，现在是合并十列不能全部显示。这个表总共才十列啊。

老师，你这个解释好像不对头也。现在是合并9列可以全部显示，合并10列显示不全。

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