专家坐堂-报表分页时无法显示指定行表头Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- 报表分页时无法显示指定行表头

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

Dim Line As New prt.LineDef(0.5, Color.Black) \' 定义一条黑色的线条

Dim rt As Prt.RenderTable \' 定义一个表格对象

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

Dim rm As New prt.RenderImage() \'定义一个图片对象

rm.Image = GetImage("EGLOGO.png") \'设置图片

Dim CurRow As Row = Tables("报价单主表").Current

Dim tbl As Table = Tables("报价单主表.报价单明细")

Dim Rows As List(Of DataRow)

Dim Regions As List(Of String) = tbl.DataTable.GetValues("报价大类","[RCId] = \'" & CurRow("RCId") & "\'","大类序号")

doc.Pagesetting.LandScape = False \'只需将Landscape属性设为True,即可横向打印.

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

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

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

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

rt = New prt.RenderTable

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

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

rt.CellStyle.Spacing.All = 0.5 \'内容距离网格线1毫米

rt.Cells(0,0).RenderObject = rm \'将单元格内容设置为图片对象rm

rt.Cells(0,0).SpanRows = 3

rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Right \'图片水平居中

rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center \'图片垂直居中

rm.Style.ImageAlign.StretchHorz = True \'禁止水平方向扩展图片

rm.Style.ImageAlign.StretchVert = True \'禁止垂直方向扩展图片

rt.Style.GridLines.All = New prt.LineDef("0mm", Color.white) \'去掉第一行的网格线

\'设置主标题

rt.Cells(0,1).text = "Dong Guan Ever Gain Logistics Management Co., Ltd."

rt.Cells(0,1).SpanCols = 6 \'合并第一行全部单元格,用于显示主标题

rt.Cells(0,1).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'主标题居中

rt.Cells(0,1).Style.Font = New Font("Times New Roman", 15 , FontStyle.Bold) \'设置文本对象的字体

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

rt.Rows(0).Height = 7

\'设置副标题一

rt.Cells(1,1).text = "東莞永得利物流管理有限公司"

rt.Cells(1,1).SpanCols = 6 \'合并第一行全部单元格,用于显示主标题

rt.Cells(1,1).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'主标题居中

rt.Cells(1,1).Style.Font = New Font("宋体", 15 , FontStyle.Bold) \'设置文本对象的字体

rt.Rows(1).Style.Borders.All = New prt.LineDef("0mm", Color.white) \'去掉第二行的网格线

\'设置副标题二

rt.Cells(2,1).text = "EVER GAIN GROUP (永得利集团)" \'通过左边空格数量来调整副标题位置

rt.Cells(2,1).SpanCols = 6 \'合并地二行全部单元格,用于显示副标题

rt.Cells(2,1).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'副标题内容居中

rt.Cells(2,1).Style.Font = New Font("宋体", 10 , FontStyle.Bold)

rt.Rows(2).Style.Borders.All = New prt.LineDef("3mm", Color.white) \'去掉第三行的网格线

rt.Rows(2).Style.Borders.Bottom = New prt.Linedef \'恢复第三行底端的网格线

rt.Rows(2).Height = 5 \'设置第二行的高度,拉开和表格主体的距离.

rt.RowGroups(0,3).Header = prt.TableHeaderEnum.all \'指定表头行

rx = New prt.RenderText \'创建文本对象

rx.Text = "报价书&协议" \'设置文本对象的内容

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

rx.Style.CharSpacing = 0.02 \'字符间距

rx.Style.Font = New Font("微软雅黑", 15 , FontStyle.Bold) \'设置文本对象的字体

rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'文本内容水平居中

rx.Style.Spacing.Bottom = 3

doc.Body.Children.Add(rx) \'将文本对象加入到表格中

\'------------------------以上代码生成表头格式

rt = New prt.RenderTable \' 创建表格对像

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

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

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

rt.Height = 40 \'设置表格的高度为120毫米

\'rt.Rows(6).Height = 50 \'第7行的高度为50毫米

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

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

rt.Cells(2,1).SpanCols = 4

rt.Cells(3,1).SpanCols = 4

rt.Cells(0,6).SpanCols = 4

rt.Cells(1,6).SpanCols = 4

rt.Cells(2,6).SpanCols = 4

rt.Cells(3,6).SpanCols = 4

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

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

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

rt.Cells(0,0).Text = "客户公司名称"

rt.Cells(0,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center

rt.Cells(0,0).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(1,0).Text = "客户公司地址"

rt.Cells(1,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center

rt.Cells(1,0).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(2,0).Text = "客户公司担当"

rt.Cells(2,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center

rt.Cells(2,0).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(3,0).Text = "报价日期"

rt.Cells(3,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center

rt.Cells(3,0).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(4,0).Text = "报价内容"

rt.Cells(4,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center

rt.Cells(4,0).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(5,0).Text = "货物明细"

rt.Cells(5,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center

rt.Cells(5,0).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(6,0).Text = "业务内容"

rt.Cells(6,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center

rt.Cells(6,0).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(0,5).Text = "报价公司名称"

rt.Cells(0,5).Style.TextAlignHorz = prt.AlignHorzEnum.Center

rt.Cells(0,5).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(1,5).Text = "报价公司地址"

rt.Cells(1,5).Style.TextAlignHorz = prt.AlignHorzEnum.Center

rt.Cells(1,5).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(2,5).Text = "报价公司担当"

rt.Cells(2,5).Style.TextAlignHorz = prt.AlignHorzEnum.Center

rt.Cells(2,5).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(3,5).Text = "报价编号"

rt.Cells(3,5).Style.TextAlignHorz = prt.AlignHorzEnum.Center

rt.Cells(3,5).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(0,1).Text = CurRow("客户公司名称")

rt.Cells(0,1).Style.TextAlignHorz = prt.AlignHorzEnum.left

rt.Cells(0,1).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(1,1).Text = CurRow("客户公司地址")

rt.Cells(1,1).Style.TextAlignHorz = prt.AlignHorzEnum.left

rt.Cells(1,1).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(2,1).Text = CurRow("客户公司担当")

rt.Cells(2,1).Style.TextAlignHorz = prt.AlignHorzEnum.left

rt.Cells(2,1).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(3,1).Text = CurRow("报价日期")

rt.Cells(3,1).Style.TextAlignHorz = prt.AlignHorzEnum.left

rt.Cells(3,1).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(4,1).Text = CurRow("报价内容")

rt.Cells(4,1).Style.TextAlignHorz = prt.AlignHorzEnum.left

rt.Cells(4,1).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(5,1).Text = CurRow("货物明细")

rt.Cells(5,1).Style.TextAlignHorz = prt.AlignHorzEnum.left

rt.Cells(5,1).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(6,1).Text = CurRow("业务内容")

rt.Cells(6,1).Style.TextAlignHorz = prt.AlignHorzEnum.left

rt.Cells(6,1).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(0,6).Text = "东莞永得利物流管理有限公司"

rt.Cells(0,6).Style.TextAlignHorz = prt.AlignHorzEnum.left

rt.Cells(0,6).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(1,6).Text = "广东省东莞市麻涌镇新沙港永得利物流园"

rt.Cells(1,6).Style.TextAlignHorz = prt.AlignHorzEnum.left

rt.Cells(1,6).Style.Font = New Font("微软雅黑", 7 , FontStyle.Bold)

rt.Cells(3,6).Text = CurRow("RCId")

rt.Cells(3,6).Style.TextAlignHorz = prt.AlignHorzEnum.left

rt.Cells(3,6).Style.Font = New Font("微软雅黑", 8 , FontStyle.Bold)

rt.Style.Spacing.Bottom = 3

doc.Body.Children.Add(rt)

rx = New prt.RenderText \'创建文本对象

Dim s As String

s = " 根据《中华人民共和国合同法》有关规定,本着自愿有偿,诚实信用的原则,经双方协商一致,就甲方委托乙方向其提供运输,装卸及通关等相关服务,"

s = s & vbcrlf & "参照以下费用及协议执行:"

rx.Text = s \'设置文本对象的内容

rx.Style.Font = New Font("微软雅黑", 8 , FontStyle.Bold) \'设置文本对象的字体

rx.Style.LineSpacing = 100 \'设置双倍行距

rx.Style.Spacing.Bottom = 3

doc.Body.Children.Add(rx) \'将文本对象加入到报表

rx = New prt.RenderText \'创建文本对象

rx.Text = "【协议条件】" \'设置文本对象的内容

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

rx.Style.CharSpacing = 0.02 \'字符间距

rx.Style.Font = New Font("微软雅黑", 8 , FontStyle.Bold) \'设置文本对象的字体

rx.Style.TextAlignHorz = prt.AlignHorzEnum.Left \'文本内容水平居中

rx.Style.Spacing.Bottom = 3

doc.Body.Children.Add(rx) \'将文本对象加入到表格中

rx = New prt.RenderText \'创建文本对象

Dim s1 As String

s1 = " 1 甲方应对其储存的货物向保险公司足额投保货物保险并支付保险费.另外,如万一发生事故,所产生的损失由甲方或者甲方客户方利用所投险种进行处理."

s1 = s1 & vbcrlf & " 乙方有义务进行投保责任保险?若因乙方责任造成货物损失的,乙方通过其投保的物流责任险进行理赔,但不负责赔偿超过其物流责任险规定的赔偿额度以外."

s1 = s1 & vbcrlf & " 乙方将相关保险单复印件加盖乙方公章提交给甲方存档."

s1 = s1 & vbcrlf & " 2 乙方按照甲方的要求规范操作,甲方有义务提供相关必要信息和协助."

s1 = s1 & vbcrlf & " 甲方有权随时对货物收,发,存,安全管理等情况进行核查,乙方有义务提供相关信息和协助."

s1 = s1 & vbcrlf & " 3 如有在乙方报价表业务范围外,即责任范围以外发生的实际业务操作的情况下,乙方将对实际发生的费用向甲方请款."

s1 = s1 & vbcrlf & " 4 在发生难以预料的天灾,战争等不可抗力致使货物无法如期到达目的地及业务不能顺利进行的情况下,"

s1 = s1 & vbcrlf & " 乙方不承担自身业务过失责任以外的责任."

s1 = s1 & vbcrlf & " 5 码头等公共设施产生的费用以及商检等产生的代垫费,由乙方向甲方按照实际发生请款,其中如果产生发票税金,由甲方承担."

s1 = s1 & vbcrlf & " 另外,关于税金税率等详细内容,需基于中国国家税务局的规定来执行."

s1 = s1 & vbcrlf & " 6 若因甲方临时取消业务给乙方带来上述报价中未列明的费用损失,由乙方另行向甲方请款."

s1 = s1 & vbcrlf & " 7 在本报价有效期内,发生难以预料事件及成本大幅度变动的情况下,或以上条件以外发生变化的情况下,乙方将再度向甲方报价."

s1 = s1 & vbcrlf & " 8 业务发生月的最后日为结算日,乙方将于业务发生次月上旬制作业务请款书并向甲方发送.甲方在业务发生次月算起30日之内付款到乙方指定的银行账户."

s1 = s1 & vbcrlf & " 甲方需按时支付所有费用,逾期需要支付滞纳金.滞纳金从约定支付日起,每逾期一天须支付拖欠总金额的0.5%(千分之五). "

s1 = s1 & vbcrlf & " 9 本报价书&协议一式二份,双方各执一份,经双方签字并加盖有效公章后生效."

rx.Text = s1 \'设置文本对象的内容

rx.Style.Font = New Font("微软雅黑", 7, FontStyle.Regular) \'设置字体

rx.Style.LineSpacing = 150 \'设置双倍行距

rx.Style.Spacing.Bottom = 3

doc.Body.Children.Add(rx) \'将文本对象加入到报表

rx = New prt.RenderText \'创建文本对象

rx.Text = "【有效期限】" \'设置文本对象的内容

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

rx.Style.CharSpacing = 0.02 \'字符间距

rx.Style.Font = New Font("微软雅黑", 8 , FontStyle.Bold) \'设置文本对象的字体

rx.Style.TextAlignHorz = prt.AlignHorzEnum.Left \'文本内容水平居中

rx.Style.Spacing.Bottom = 3

doc.Body.Children.Add(rx) \'将文本对象加入到表格中

rx = New prt.RenderText \'创建文本对象

Dim s3 As String

s3 = " " & CurRow("有效期限")

s3 = s3 & vbcrlf & " " & CurRow("有效期限备注")

rx.Text = s3 \'设置文本对象的内容

rx.Style.Font = New Font("微软雅黑", 7, FontStyle.Regular) \'设置字体

rx.Style.LineSpacing = 150 \'设置双倍行距

rx.Style.Spacing.Bottom = 3

doc.Body.Children.Add(rx) \'将文本对象加入到报表

rx = New prt.RenderText \'创建文本对象

rx.Text = "【报价详细】" \'设置文本对象的内容

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

rx.Style.CharSpacing = 0.02 \'字符间距

rx.Style.Font = New Font("微软雅黑", 8 , FontStyle.Bold) \'设置文本对象的字体

rx.Style.TextAlignHorz = prt.AlignHorzEnum.Left \'文本内容水平居中

rx.Style.Spacing.Bottom = 3

doc.Body.Children.Add(rx) \'将文本对象加入到表格中

For Each Region As String In Regions

rx = New prt.RenderText \'创建文本对象

rx.Style.FontSize = 9 \'字体大小为8磅

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

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

rx.Text = Region

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

rt = New prt.RenderTable \'创建文本对象

\'rt.Style.Font = Tables("报价单主表.报价单明细").Font \'字体

rt.Style.Font = New Font("微软雅黑",7,FontStyle.Bold) \'设置文本对象的字体

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

rt.Style.GridLines.All = New prt.LineDef(0.2,Color.Black) \'设置网格线颜色

rt.Style.Spacing.Bottom = 3 \'和下面的对像距离为3毫米

rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never \'禁止被垂直分割

rt.CellStyle.Spacing.All = 1 \'单元格内距设为1毫米

rt.Style.Font = tbl.Font

Rows = tbl.DataTable.Select("[报价大类] = \'" & Region & "\'and [RCId] = \'" & CurRow("RCId") & "\'", "报价序号,CODE,项目") \'筛选报价大类

Dim ColNames As String() = New String(){"报价序号","CODE","项目","二级项目","币种","金额","单位","税率","备注"} \'明细列名集合

Dim cn As String() = New String(){"NO.","CODE","项目","子项目","币种","金额","单位","税率","备注"} \' 明细列名的别名

Dim mc As Integer = 3 \'合并前三个列

\'tbl.Sort ="报价序号,CODE,项目"

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

Dim lr As Integer \'用于保存合并区域的起始行

rt.Cells(0,c).Text = cn(c) \'第一列使用别名

rt.Cells(0,c).Style.TextAlignHorz = prt.AlignHorzEnum.Center

\'rt.Cols(c).Width = tbl.Cols(c).PrintWidth

rt.Cols(0).Width = 10 \'第一列列宽

rt.Cols(1).Width = 12

rt.Cols(2).Width = 30

rt.Cols(3).Width = 20

rt.Cols(4).Width = 10

rt.Cols(5).Width = 10

rt.Cols(6).Width = 12

rt.Cols(7).Width = 10

rt.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'唯独第一列内容居中

rt.Cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center

For r As Integer = 0 To Rows.Count -1

If c <= mc -1 Then \'如果是要合并的列

Dim merge As Boolean = True

If r = 0 Then

merge = False

Else

For n As Integer = 0 To c

If Rows(r)(Colnames(n)) <> Rows(r-1)(Colnames(n))

merge = False

Exit For

End If

If merge Then

rt.cells(lr,c).SpanRows = rt.Cells(lr,c).SpanRows + 1

Else

rt.Cells(r + 1,c).Text = rows(r)(ColNames(c))

lr = r + 1

End If

Else

rt.Cells(r + 1,c).Text = rows(r)(ColNames(c))

End If

rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All \'将第一行作为表头.

rt.Style.Font = New Font("微软雅黑", 7, FontStyle.Bold) \'设置字体

doc.Body.Children.Add(rt)

rt.Style.TextAlignHorz = prt.AlignHorzEnum.left \'所有文本内容靠右对齐

rt.Style.Spacing.Bottom = 5

rx = New prt.RenderText \'创建文本对象

rx.Text = CurRow("客户公司名称") & "(甲方)" & " " & "东莞永得利物流管理有限公司" & "(乙方)"\'设置文本对象的内容

rx.Style.Font = New Font("微软雅黑", 12, FontStyle.Regular) \'设置字体

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

rx.Style.Spacing.Bottom = 3

doc.Body.Children.Add(rx) \'将文本对象加入到报表

doc.preview()