复杂的表头
现在,设计一个多层的复杂表头,是很容易的事。
示例
Dim
doc
As New PrintDoc
'定义一个报表
Dim rt As
New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef
'设置网格线
rt.CellStyle.Spacing.All = 1
'内容距离网格线1毫米
rt.cells(0,0).Text
= "第一季度"
'设置第一行第一个单元格的内容
rt.Cells(0,3).Text
= "第二季度"
'设置第一行第四个单元格的内容
rt.cells(0,0).SpanCols
= 3
'合并第一行前三个单元格
rt.Cells(0,3).SpanCols
= 3
'合并第一行最后三个单元格
rt.Cells(1,0).Text=
"华东"
rt.Cells(1,1).Text
= "华南"
rt.Cells(1,2).Text
= "华北"
rt.Cells(1,3).Text=
"华东"
rt.Cells(1,4).Text
= "华南"
rt.Cells(1,5).Text
= "华北"
rt.RowGroups(0,2).Header =
prt.TableHeaderEnum.All
'前两行作为表头
rt.RowGroups(0,2).Style.BackColor
= Color.LightGray '前两行的颜色设为灰色
rt.RowGroups(0,2).Style.TextAlignHorz
= prt.AlignHorzEnum.Center '前两行的文本水平居中
rt.RowGroups(0,2).Style.TextAlignVert
= prt.AlignVertEnum.Center '前两行的文本垂直居中
For i As
integer =
1
To
100 '增加100行
rt.Cells(i +
1,
0).Text = i
Next
Doc.Preview() '预览报表
下面是执行结果,是不是比划线的时代强多了:
需要注意的是,用于表头的行必须位于表格的最前边。
本页地址:http://www.foxtable.com/webhelp/topics/1216.htm