主题：专业报表如何消除中间表格与文本页脚间的空隙？

 
此主题相关图片如下：qq截图20140521114323.jpg

上图是中间用表格生成主体表，最后用文本生成页脚的情况 ，但明细表不多时中间出现了空格。代码如下：

。。。。

 rt.Cells(rt.Rows.Count-1,6).Style.TextAlignHorz = prt.AlignHorzEnum.Right '文本水平位置
    '-----------------------------------------------------------2
    rt.Rows(rt.Rows.Count).Height = "auto"
    rt.Cells(rt.Rows.Count-1,0).Style.Font = New Font("宋体",12) '设置字体
    rt.Cells(rt.Rows.Count-1,0).SpanCols = 2
    rt.Cells(rt.Rows.Count-1,0).Text = "备注:" & vbcrlf & "(特殊要件)"
    rt.Cells(rt.Rows.Count-1,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '文本水平位置
    rt.Cells(rt.Rows.Count-1,2).SpanCols = 8
    rt.Cells(rt.Rows.Count-1,2).Text = CurRow("备注")
    rt.Cells(rt.Rows.Count-1,2).Style.TextAlignHorz = prt.AlignHorzEnum.Left '文本水平位置
    '----------------------------------------------------------4
    doc.Body.Children.Add(rt) '将表格对象加入到报表中
   
    rx = New prt.RenderText '定义一个文本对象
    'Dim s As String
    s = "二、供方应在确认的交期内供货,若逾期未交货,则按未交货金额的5%计算违约金.超过三天的,需方可以取消订单。" & vbcrlf
    s = s & "三、商品依需方所订立之检验标准进行验收,全部或部分不合格时,需方有权退货,由供方在限定期限内取回并及时补货,因退换货所发生的费用及其损失概由供方自行负担。" & vbcrlf
    s = s & "四、交货地点:需方仓库。" & vbcrlf
    s = s & "五、付款条件:月结   天。" & vbcrlf
    s = s & "六、订单变更时,必须以书面形式通知对方,并需经双方有权签章人员签章确认,否则无效。" & vbcrlf
    s = s & "七、供方在收到本单一个工作日内签收并回复需方,若未及时签回此单,则视默认处理.本单传真有效。" & vbcrlf
    s = s & "八、交货时,供方需附送货单,且所供货物需有包装标签,送货单及外箱标签必须正确标注品名、规格、数量及相对应的订单编号,以便迅速验收,若有未标识或标识不正确者,需方有权拒绝验收。" & vbcrlf
    s = s & "九、供方向买需方业务人员以及相关人员赠送礼物、行贿的,需方有权没收当月货款。" & vbcrlf
    s = s & "十、其他要求:"
    rx.Text = s
    rx.Style.LineSpacing = 120 '设置双倍行距
    ' rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    rx.Style.Font = New Font("宋体", 12) '设置字体
    rx.Style.Spacing.Bottom = 8 '和下一个对象的距离(毫米)
    ra.Children.Add(rx) '将文本对象加入到容器ra中
    doc.PageFooter = ra

。。。。。

如何消除中间的空格，谢谢！

谢谢！因为用户要求每页都要显示那些文字 。这个问题基本解决，另外想问下：如下图

此主题相关图片如下：360截图20140521142541495.jpg

上面绿色框中的内容用RenderText并设置为页眉，然后再定义一个RenderTable() 来生成表体，此时用下面这句代码

rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All  '指定表头行

想指定表体的标题每页也都显示，这句代码好象不起作用了，是不是指定了页眉这样设置就不起作用？

谢谢！没有找到什么原因，后来把行数改为大于1的数字就可以，2,3,4,5等都可以。明明表上只有一行列标题，但用1就不行。反正可以就先这样用了。

rt.RowGroups(0,2).Header = prt.TableHeaderEnum.Page  '指定表头行

没有空白行，代码如下：

.......

rx.Style.Font = New Font("宋体", 13) '设置字体
rx.Style.Spacing.Bottom = 2 '和下一个对象的距离(毫米)
ra.Children.Add(rx) '将文本对象加入到容器ra中
'----设置以上部份作为页眉--------------------------------------
doc.PageHeader = ra