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

主要数据来源于表A

1. 如何在专业报表的第4行，第2、3、4列合并后插入表B选定的列，看了帮助的选定列是单表选定列，这里是要插入表B的选定列在打印时候形成表中表。

2. 第3行的第1列的文字如何垂直居中，自己试了几次代码都是考上水平居中，不会垂直居中。

专业报表例子代码：

Dim doc As New PrintDoc \'定义一个报表

Dim rt As New prt.RenderTable() \'定义一个表格对象

Dim cr As New prt.RenderTable() \'定义一个表格对象,插入表B

Dim tb As Table = Tables("表B") \'插入表B

Dim ColNames As String() = New String(){"第一列", "第二列", "第三列","第四列"}

Dim rx As New prt.RenderText \'定义一个文本对象

Dim CurRow As Row = Tables("表A").Current

\'加入标题

rx.text = "工程设计策划表"

rx.Style.FontBold = True \'字体加粗

rx.Style.FontSize = 16 \'大体大小为16磅

rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中排列

rx.Style.Spacing.Bottom = 3 \'和下面的对象(表格)距离3毫米

doc.Body.Children.Add(rx) \'加入到报表中

\'指定行数/列数/列宽/行高

rt.Rows.Count = 6 \'设置总行数

rt.Cols.Count = 4 \'设置总列数

rt.Rows(0).Height = 10 \'设置第1行(显示设计内容的行)的高度为1毫米,剩余高度被平均分排到其他行

rt.Rows(1).Height = 10 \'设置第2行(显示设计内容的行)的高度为1毫米,剩余高度被平均分排到其他行

\'rt.Rows(2).Height = 10 \'自动第3行(显示设计内容的行)的高度

\'rt.Rows(3).Height = 10 \'自动第4行(显示设计要求的行)的高度，如果插入表B该行将形成第5行

rt.Rows(4).Height = 10 \'设置第4行(显示设计要求的行)的高度，如果插入表B该行将形成第6行

rt.Cols(0).Width = 24 \'设置4列的宽度

rt.Cols(1).Width = 35

rt.Cols(2).Width = 24

rt.Cols(3).Width = 40

\'设置合并单元格

rt.Cells(2,1).SpanCols = 3 \'第3行第3个单元格向右合并为1列(用于显示设计内容)

rt.Cells(3,1).SpanCols = 3 \'第4行第3个单元格向右合并为1列(用于显示设计要求)

\'设置表格样式

rt.CellStyle.Spacing.All = 1 \'单元格内容缩进1毫米

rt.Style.GridLines.All = New prt.Linedef \'设置网格线

rt.Style.TextAlignVert = prt.AlignVertEnum.Center \'内容垂直居中

rt.Rows(2.1).Style.TextAlignVert = prt.AlignVertEnum.Top \'唯独第3行是设计内容,内容靠上对齐

rt.Rows(3.1).Style.TextAlignVert = prt.AlignVertEnum.Top \'唯独第4行是设计要求,内容靠上对齐

\'下面很简单,指定每一个单元格的内容

rt.Cells(0,0).Text= "信息编号"

rt.Cells(0,1).Text = CurRow("信息编号")

rt.Cells(0,2).Text= "项目编号"

rt.Cells(0,3).Text = CurRow("项目编号")

rt.Cells(1,0).Text= "项目名称"

rt.Cells(1,1).Text = CurRow("项目名称")

rt.Cells(1,2).Text= "建设单位"

rt.Cells(1,3).Text = CurRow("建设单位")

rt.Cells(2,0).Text= "设计内容"

rt.Cells(2,1).Text = CurRow("设计内容")

rt.Cells(3,0).Text= "设计要求"

rt.Cells(3,1).Text = CurRow("设计要求")

rt.Cells(4,0).Text= "编制日期"

rt.Cells(4,1).Text = CurRow("编制日期")

rt.Cells(4,2).Text= "批准人"

rt.Cells(4,3).Text = CurRow("批准人")

rt.Cols(0).Style.TextAlignHorz = prt.AlignVertEnum.Center \'第1列内容垂直居中

rt.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'第1列内容水平居中

rt.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'第3列内容水平居中

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

Doc.Preview() \'预览报表