专业报表表头的问题（如何连续打印） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如下图，有时主表上的列宽和明细表相差很多，专业报表中用一个表来设定要合并很多单元格，所以报表就分成了上下两个表，

请教如果要用上面表的全部五行(包含主副标题)和下面表的前面3行共同生成表头（每页都要有）要怎么设置，谢谢！

此主题相关图片如下：多表表头.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:专业报表多表表头.table

[此贴子已经被作者于2014-1-4 8:23:32编辑过]

那样不可以，下面明细表的顶上三行也要包括在内，如果是单个表比较简单，两个表就是不知道怎么将上下两个表的行合起来共同作表头。如果两个表分开设置只有一个起作用。

谢谢各位，上了个例子，要求就是要达到1楼所述。中间如果将第一个表的表头生成页眉，就会提示出错，不知道为什么？

真是晕了，居然忘记了传例子！

但我将前一个表设置好后将设定为页眉，为什么就提示出错？

图片点击可在新窗口打开查看此主题相关图片如下：360截图20140102215051822.jpg

谢谢，出错的问题解决了，但为什么用绑定数据表再用另外一个表的行组设置表头和表尾后却不能实现自动分页呢，帮助中“表格与绑定”那个例子基本上一样却可以。

rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All '指定表头行

Dim tb As Table = Tables("订单.订单明细")

Dim ColNames As String() = New String(){"品名","规格","数量","单位","编号","备注"}

For c As Integer = 0 To ColNames.Length -1

rt.Cells(0,c).Text = ColNames(c)

rt.Cols(c).Width = 25

rt.Cells(1,c).Text = "[Fields!" & ColNames(c) & ".Value]" '设置绑定表达式

rt.RowGroups(1,1).DataBinding.DataSource = BindTables("订单.订单明细") '将第四行绑定到订单明细表

'设置表尾------------------------------------------------

rt.RowGroups(9,2).Footer = prt.TableHeaderEnum.All '指定表尾行

rt.Rows(9).Style.Borders.All = New prt.LineDef("0mm", Color.white) '去掉网格线

rt.Rows(9).Style.Borders.Top = New prt.Linedef '恢复上方网格线

rt.Cells(9,0).Text= "备注:"

rt.Cells(9,1).SpanCols = 9

rt.Cells(9,1).Text= CurRow("备注")

rt.Rows(10).Style.Borders.All = New prt.LineDef("0mm", Color.white) '去掉网格线

rt.Cells(10,0).Text = "第[PageNo]页,共[PageCount]页"

rt.RowGroups(10,1).Style.TextAlignHorz = prt.AlignHorzEnum.Right '文本水平位置

doc.Body.Children.Add(rt) '将表格对象加入到报表中

Doc.Preview() '预览报表

[此贴子已经被作者于2014-1-2 22:19:58编辑过]

谢谢程版！专业报表结果很漂亮，但是看起来头疼！

程版的方法确实方便，但请教一下如果要实现上下两行合并为一个单元格要怎么办？即如下图

此主题相关图片如下：360截图20140103093352864.jpg

右边的备注等都是三行合并在一起的。要如何实现上下行合并？谢谢！

如下图，上面原来是正确的，下面那个图不正确

此主题相关图片如下：qq图片20140103101041.jpg

'----------------------------------------------------------4

rt.Cells(rt.Rows.Count-1,8).SpanCols = 4

rt.Cells(rt.Rows.Count-1,8).Text = "制单日期:" & iif(CurRow.IsNull("制单日期"),"",CurRow("制单日期"))

rt.Cells(rt.Rows.Count-1,8).Spanrows = 3 '-----------增加了合并的代码就不正确了.

rt.Cells(rt.Rows.Count-1,12).SpanCols = 3

rt.Cells(rt.Rows.Count-1,2).Text = "交货日期:" & iif(CurRow.IsNull("交货日期"),"",CurRow("交货日期"))

'----------------------------------------------------------5

在上面第4段处增加了合并上下行的代码就那样，请问要怎么合并才不会那样。

谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:专业报表多表表头.table

不是那个意思，如下图：

图片点击可在新窗口打开查看此主题相关图片如下：qq截图2014-2.jpg

就是想让“备注”居中显示在上下两行合并的单元格中，即想要下面那样的效果！其他没什么

[此贴子已经被作者于2014-1-3 12:22:54编辑过]

主题：专业报表表头的问题（如何连续打印）