请教各位老师，专业报表，上面是一些文本对象代码，下方是表格对像及代码，可生成的专业报表，文本却在表格下方，我想位于表格上方，哪里代码有问题？

\'加入表头
rs1.Text = "基本资料" \'设置文本对象的内容
rs1.Style.Font = New Font("宋体", 18 , FontStyle.Bold) \'设置文本对象的字体
rs1.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'文本内容水平居中
doc1.Body.Children.Add(rs1) \'将文本对象加入到表格中
\'加入主表内容
doc1.Stacking = prt.StackingRulesEnum.InlineLeftToRight \'设置排列方式
Dim bt1() As String = {"项目编号","客户简称","名称","规格型号","物料代码","版本","供方工厂","供方代码","项目组长","项目小组成员","单据日期","单位","客户编号","版本状态","最终审核","行业","PPAP提交日期"}
\'Dim bz1() As Integer = {50,50,50,60,60,30,50,50,50,100,40,30,50,50,40,30,50}
Dim bz1() As Integer = {50,50,50,50,50,50,50,50,50,100,50,50,50,50,50,50,50}
\'For i As Integer = 0 To 10
Dim k1 As Integer = 0
For Each b1 As String In bt1
    rt2 = New prt.RenderText() \'创建文本对象
    rt2.Text = b1 & ": " & Tables("APQP基本资料主表").current(b1) \'设置文本对象的内容
    rt2.Width = bz1(k1) \'宽度为39毫米
   \' rt.Height = 35 \'宽度为35毫米
    rt2.Style.Spacing.All = 2 \'设置各个方向的间隔
    \' rt.Style.Borders.All = New prt.Linedef(1, Color.Red) \'设置边框
    rt2.Style.Borders.Bottom = New prt.Linedef
    rt2.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
    rt2.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中
    doc1.Body.Children.Add(rt2) \'将文本对象加入到报表
k1 = k1 + 1
Next

下方为表格代码，以下省略

。。。。。

 做好布局。先把doc分成两个容器，一个头部，一个中间。控制容器的布局，然后往容器里加入具体对象。

 你贴的代码无法测试，请做一个可以测试的例子发上来。