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

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

\'doc.PageSetting.Width = 210 \'纸张宽度为210毫米

\'doc.PageSetting.Height = 120 \'纸张高度为120毫米

\'doc.AutoRotate = False \'禁止自动旋转打印内容

\'doc.PageSetting.Landscape = True \'横向打印

Doc.PageSetting.LeftMargin = 25 \'设置左边距

Doc.PageSetting.RightMargin = 15 \'设置右边距

Doc.PageSetting.TopMargin = 0 \'设置上边距

Doc.PageSetting.BottomMargin = 0 \'设置下边距

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

rt.Style.GridLines.All = New prt.LineDef \'将网格线类型设为默认类型

rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中

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

rt.Style.Spacing.Top = 4 \'表格和前面对象的垂直间隔为4毫米

rt.Style.Spacing.Bottom = 10 \'表和和后续对象的垂直间隔为10毫米

rt.Style.Spacing.All = 1 \'报表所有网格线为1mm

rt.y = "20mm"

rt.Style.GridLines.All = New Prt.LineDef(0.5, Color.Black)

rt.Style.GridLines.Horz = New Prt.LineDef(Color.Black)

rt.Style.GridLines.Vert = New Prt.LineDef(Color.Black)

rt.Rows.Count = 1 \'设置行数，需要注意的是，新增报表总行数设置为1行

rt.Cols.Count = 7 \'设置列数，列数根据您的需要

rt.cells(rt.Rows.Count - 1, 0).Text = "长优日用制品有限公司1#员工月工序汇总算单"\'因为总行数为1行，所以首次设置内容的时候，引用行位置为rt.Rows.Count - 1

rt.Rows(rt.Rows.Count - 1).Height = 13 & "mm" \'设置首行高度为13mm

rt.Rows(rt.Rows.Count - 1).Style.GridLines.All = New Prt.LineDef(0, Color.Black) \'设置首行所有网格线为0——无网格线

rt.rows(rt.Rows.Count - 1).Style.Font = New Font("隶书", 18, FontStyle.bold) \'设置文本对象的字体

rt.Cells(rt.Rows.Count - 1, 0).SpanCols = 7 \'第1行第所有单元格为一个完整单元格。

rt.cells(rt.Rows.Count, 0).Text = "部门或姓名：" & e.Form.Controls("ComboBox1").Value & "结算清单"

\'关键在于上面这一行，这里设置内容引用行位置的时候，直接rt.Rows.Count，这样专业报表也就自动增加了1行，因为引用位置没有减一，也就是抓住了专业报表设置内容自动增加行的特性。

rt.Cells(rt.Rows.Count - 1, 0).SpanCols = 7 \'第2行第1个单元格向右合并7列，

\'而到了这里，直接给最后行设置内容而不需要增加行，所以在这里必须减1，所以引用行位置因为rt.Rows.Count-1，再往下面的代码我就不需要解释，大家只需要区别需要增加行时，引用行位置的为rt.Rows.Count，不需要增加行的时候为rt.Rows.Count-1，这样您在设计报表的过程中您可以从任意位置插入行，也可以从任意位置嵌套多级分组统计行，您只需要在插入相应代码即可。

rt.rows(rt.Rows.Count - 1).Style.Font = New Font("黑体", 12) \'设置文本对象的字体

rt.Rows(rt.Rows.Count - 1).Height = 6 & "mm"

rt.rows(rt.Rows.Count - 1).Style.TextAlignHorz = prt.AlignHorzEnum.left \'水平居左

rt.Rows(rt.Rows.Count - 1).Style.GridLines.left = New Prt.LineDef(0, Color.Black)

rt.Rows(rt.Rows.Count - 1).Style.GridLines.Right = New Prt.LineDef(0, Color.Black)

rt.cells(rt.Rows.Count, 0).Text = "序号"

rt.cells(rt.Rows.Count - 1, 1).Text = "生产批号"

rt.cells(rt.Rows.Count - 1, 2).Text = "型号"

rt.cells(rt.Rows.Count - 1, 3).Text = "工序名称"

rt.cells(rt.Rows.Count - 1, 4).Text = "生产金额"

rt.cells(rt.Rows.Count - 1, 5).Text = "输入日期"

rt.cells(rt.Rows.Count - 1, 6).Text = "备注"

rt.Rows(rt.Rows.Count - 1).Height = 12 & "mm"

rt.rows(rt.Rows.Count - 1).Style.Font = New Font("宋体", 12, FontStyle.bold) \'设置文本对象的字体

rt.Rows(rt.Rows.Count - 1).Style.BackColor = Color.LightGray \'第一行背景颜色设为灰色.

rt.rows(rt.Rows.Count - 1).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中

rt.RowGroups(0, 3).Header = prt.TableHeaderEnum.All \'将前三行作为表头.

rt.Cols(0).Width = 12 & "mm"

rt.Cols(1).Width = 35 & "mm"

rt.Cols(2).Width = 16 & "mm"

rt.Cols(3).Width = 60 & "mm"

rt.Cols(4).Width = 40 & "mm"

rt.Cols(5).Width = 30 & "mm"

rt.Cols(6).Width = 20 & "mm"

rt.cells(rt.Rows.Count, 0).text = "一、计件金额大写：" & CUMoney(DataTables("计件完工单_Table1").Compute("Sum(生产金额)", "姓名 = \'应付款\' and 班别 = \'" & e.Form.Controls("ComboBox1").Value & "\'")) & "(小写:" & format(DataTables("计件完工单_Table1").Compute("Sum(生产金额)", "姓名 = \'应付款\' and 班别 = \'" & e.Form.Controls("ComboBox1").Value & "\'"), "0.00") & "元)"

rt.rows(rt.Rows.Count - 1).Style.TextAlignHorz = prt.AlignHorzEnum.left \'水平居左

rt.Cells(rt.Rows.Count - 1, 0).SpanCols = 7 \'第4行第1个单元格向右合并7列

rt.rows(rt.Rows.Count - 1).Style.Font = New Font("宋体", 12, FontStyle.bold) \'设置文本对象的字体

rt.Rows(rt.Rows.Count - 1).Height = 12 & "mm"

Dim drs As List(Of DataRow)

drs = DataTables("计件完工单_Table1").Select("姓名 = \'应付款\' and 班别 = \'" & e.Form.Controls("ComboBox1").Value & "\'")

For i As Integer = 0 To drs.Count - 1

rt.cells(rt.Rows.Count, 0).text = Format(i + 1, "00")

rt.cells(rt.Rows.Count - 1, 1).text = drs(i)("生产批号")

rt.cells(rt.Rows.Count - 1, 2).text = drs(i)("型号")

rt.cells(rt.Rows.Count - 1, 3).text = drs(i)("工序名称")

rt.cells(rt.Rows.Count - 1, 4).text = format(drs(i)("生产金额"), "0.00")

rt.cells(rt.Rows.Count - 1, 5).text = drs(i)("输入日期")

rt.cells(rt.Rows.Count - 1, 6).text = drs(i)("备注")

rt.Rows(rt.Rows.Count - 1).Height = 8 & "mm"

rt.cells(rt.Rows.Count - 1, 3).Style.TextAlignHorz = prt.AlignHorzEnum.left \'水平居左

rt.cells(rt.Rows.Count - 1, 4).Style.TextAlignHorz = prt.AlignHorzEnum.Right \'水平靠右

Dim y As Integer = DataTables("计件完工单_Table1").Compute("Sum(生产金额)", "姓名 " & e.Form.Controls("ComboBox1").Value & "\'") - DataTables("计件完工单_Table1").Compute("Sum(生产金额)", "姓名" & e.Form.Controls("ComboBox1").Value & "\'")

If y > 0 Then

rt.cells(rt.Rows.Count, 0).text = "二、应结余额大写：" & CUMoney(y) & "(小写:" & format(y, "0.00") & "元)"

Else

rt.cells(rt.Rows.Count, 0).text = "二、应结余额大写：负" & CUMoney( Math.Abs(y)) & "(小写:" & format(y, "0.00") & "元)"

rt.cells(rt.Rows.Count - 1, 0).Style.BackColor = Color.red

End If

rt.Cells(rt.Rows.Count - 1, 0).SpanCols = 7 \'第N行第0个单元格向右合并7列，这里同样只知道为最后一行

rt.rows(rt.Rows.Count - 1).Style.TextAlignHorz = prt.AlignHorzEnum.left \'水平居左

rt.rows(rt.Rows.Count - 1).Style.Font = New Font("宋体", 12, FontStyle.bold) \'设置文本对象的字体

rt.Rows(rt.Rows.Count - 1).Height = 10 & "mm"

rt.cells(rt.Rows.Count, 0).text = "备注"

rt.rows(rt.Rows.Count - 1).Style.Font = New Font("宋体", 12, FontStyle.bold) \'设置文本对象的字体

rt.Cells(rt.Rows.Count - 1, 1).SpanCols = 6 \'第2行第2个单元格向右合并3列

rt.Rows(rt.Rows.Count - 1).Height = 20 & "mm"

rt.cells(rt.Rows.Count, 0).text = " 审核：记帐：经手人：年月日"

rt.rows(rt.Rows.Count - 1).Style.Font = New Font("宋体", 12, FontStyle.bold) \'设置文本对象的字体

rt.Cells(rt.Rows.Count - 1, 0).SpanCols = 7 \'第N行第0个单元格向右合并7列，这里同样只知道为最后一行

rt.Rows(rt.Rows.Count - 1).Style.GridLines.All = New Prt.LineDef(0, Color.Black)

rt.Rows(rt.Rows.Count - 1).Style.GridLines.top = New Prt.LineDef(0.5, Color.Black)

rt.Rows(rt.Rows.Count - 1).Height = 15 & "mm"

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

Doc.Preview() \'预览报表