-- 作者：李孝春
-- 发布时间：2014/12/16 21:46:00
-- 求助：专业报表中共有21行，第一行为标题行，怎么让第二行开始的序号根据所生成的内容自动递增数据如1，，2,，3,，4……
求助：专业报表中共有21行，第一行为标题行，怎么让第二行开始的序号根据所生成的内容自动递增数据如1，，2,，3,，4……
假设当前共有16个移交目录 那序号就为1到16，当案卷编号、案由、册数为空的行就不生成序列号
下列代码为专业报表代码 红色部分为求助部分
Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderTable() \'定义一个表格对象
Dim rs As New prt.RenderText() \'定义一个文本对象
Dim Currow As Row
Dim tbl As Table = Tables("卷宗封面")
doc.Body.Children.Add(rs) \'将文本对象加入到表格中
Dim i As Integer = 0
For Each r As Row In tbl.GetCheckedRows
CurRow = r
Doc.PageSetting.LeftMargin = 30 \'设置左边距
Doc.PageSetting.RightMargin = 10 \'设置右边距
Doc.PageSetting.TopMargin = 25 \'设置上边距
Doc.PageSetting.BottomMargin = 20 \'设置下边距
doc.PageSetting.Width = 210 \'纸张宽度为100毫米
doc.PageSetting.Height = 295 \'纸张高度为120毫米
Doc.Style.Padding.right = 1
Doc.Style.Padding.Left = 1
rs.Text = "检察卷移交目录表" \'设置文本对象的内容
rs.Style.Font = New Font("宋体", 24 , FontStyle.Bold) \'设置文本对象的字体
rs.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'文本内容水平居中
\'doc.Body.Children.Add(rt) \'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef \'设置网格线
rt.RowGroups(0,2).Header = prt.TableHeaderEnum.All
rt.Style.GridLines.All = New prt.LineDef \'将网格线类型设为默认类型
\'rt.Width = "Auto"
rt.Rows.Count = 21 \'设置总行数
rt.Cols.Count = 6 \'设置总列数
rt.Style.Spacing.Top = 4 \'表格和前面对象的垂直间隔为4毫米
rt.Style.Spacing.Bottom = 10 \'表和和后续对象的垂直间隔为10毫米
rt.Cols(0).Width = 10 \'设置列宽
rt.Cols(1).Width = 25 \'设置列宽
rt.Cols(2).Width = 20 \'设置列宽
rt.Cols(3).Width = 20 \'设置列宽
rt.Cols(4).Width = 60 \'设置列宽
rt.Cols(5).Width = 10 \'设置列宽
rt.Height = 235 \'设置表格的高度为120毫米
rt.Cells(0,3).SpanCols = 1 \'第5行第4个单元格向右合并2列
rt.Cells(0,0).SpanRows =1 \'第1行第1个单元格向下合并2行
rt.Cells(0,1).SpanRows = 1 \'第1行第2个单元格向下合并2行
rt.Cells(0,4).SpanRows = 1 \'第1行第5个单元格向下合并2行
rt.Cells(0,5).SpanRows = 1 \'第1行第6个单元格向下合并2行
rt.Cells(0,2).SpanRows = 1 \'第1行第3个单元格向下合并2行
rt.Cells(0,0).Text= "序号"
rt.Cells(0,1).Text = "案卷编号"
rt.Cells(0,2).Text = "人员名称"
rt.Cells(0,3).Text= "案由"
rt.Cells(0,4).Text = "处理结果"
rt.Cells(0,5).Text = "共卷"
rt.Cells(0,0).Style.Font=New Font("宋体", 16, FontStyle.Bold)
rt.Cells(0,1).Style.Font=New Font("宋体", 16, FontStyle.Bold)
rt.Cells(0,2).Style.Font=New Font("宋体", 16, FontStyle.Bold)
rt.Cells(0,3).Style.Font=New Font("宋体", 16, FontStyle.Bold)
rt.Cells(0,4).Style.Font=New Font("宋体", 16, FontStyle.Bold)
rt.Cells(0,5).Style.Font=New Font("宋体", 16, FontStyle.Bold)
rt.RowGroups(0,2).Header = prt.TableHeaderEnum.All \'前两行作为表头
rt.RowGroups(0,22).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'前22行的文本水平居中
rt.RowGroups(0,22).Style.TextAlignVert = prt.AlignVertEnum.Center \'前22行的文本垂直居中
\'rt.Cells(i+1,0).Text = CurRow("序号")
rt.Cells(i+1,1).Text = CurRow("案卷编号")
rt.Cells(i+1,2).Text = CurRow("人员名称")
rt.Cells(i+1,3).Text = CurRow("案由")
rt.Cells(i+1,4).Text = CurRow("处理结果")
rt.Cells(i+1,5).Text = CurRow("共卷")
rt.Style.Font = New Font("宋体", 12 , FontStyle.Bold) \'设置文本对象的字体
i += 1
Next
doc.Body.Children.Add(rt)
Dim rx As New prt.RenderTable
rx.Cells(0,2).Text = "第[PageNo]页,共[PageCount]页"
rx.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Left
rx.Cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rx.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.right
rx.CellStyle.Spacing.Bottom = 0.5 \'底端内容缩进0.5毫米
rx.Style.FontSize = 8 \'字体大小为8磅
Doc.PageFooter=rx \'作为页眉使用
Doc.Preview() \'预览报表
|