主题：[求助]专业报表

   在专业报表中，定义1个报表rb，并也某单元格为容器：

   ra = rb.cell(r,c).Area

   在容器ra中加入几个文本对象。

   请问如何将加入的文本对象在单元各种垂直居中？

   我试写了几个代码，一是统一用表属性设置不起作用，设置单元格的属性也不起作用

   设置文本对象垂直居中也不起作用。

      我的容器是单元格，容器中有多个文本对象，采用循环对单个文本对象设置了垂直居中，但没起作用

    

    下列代码中，第1列垂直居中，第二列不垂直居中

    

Dim doc As New PrintDoc

Dim rt As New prt.RenderTable

Dim ra As prt.RenderArea

Dim ra1 As prt.RenderArea

Dim rm As prt.RenderImage

Dim rx As prt.RenderText

rt.Style.GridLines.All = New prt.LineDef

rt.CellStyle.Spacing.All = 1 '单元格内容和网格线距离1毫米

rt.Cols.Count = 3 '总列数为3

For i As Integer = 0 To 3

    ra = rt.Cells(i,0).Area '引用单元格的容器

       

    '设置文本对象

    For s As Integer = 0 To 3

        rx = New prt.RenderText '创建一个文本

        rx.Text = "那就叫你"

        rx.Style.TextAlignVert = prt.AlignVertEnum.Center '文本垂直居中

        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center

        rx.Style.Spacing.Bottom = 1 '距离下边的对象2毫米

        ra.Children.Add(rx) '加入文本到RenderArea中

    Next

 

    ra1 = rt.Cells(i,1).Area '引用单元格的容器

       

    '设置文本对象

        rx = New prt.RenderText '创建一个文本

        rx.Text = "那就叫你ddddddddd"

        rx.Style.TextAlignVert = prt.AlignVertEnum.Center '文本垂直居中

        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center

        rx.Style.Spacing.Bottom = 1 '距离下边的对象2毫米

        ra1.Children.Add(rx) '加入文本到RenderArea中

  

doc.Body.Children.Add(rt)

Doc.Preview()

     请老师看一下，这个问题如何解决？

        请各位老师指教！

上述代码解决了问题，但是不太明白，不知引用单元格的容器，在定义格式和老师的代码有什么区别，请解释一下

 

ra = rt.Cells(i,0).Area '引用单元格的容器

 

rt.Cells(i,0).RenderObject = rx

用了甜老师修改的代码，还有点问题：第2列每个单元格填入数据时，也有多个文本对象。

当第2列有多个文本对象时，仍不能垂直居中。

 

 

Dim doc As New PrintDoc

Dim rt As New prt.RenderTable

Dim ra As prt.RenderArea

Dim rx As prt.RenderText

rt.Style.GridLines.All = New prt.LineDef

rt.CellStyle.Spacing.All = 1 '单元格内容和网格线距离1毫米

rt.Cols.Count = 3 '总列数为3

For i As Integer = 0 To 3

 

    ra = new prt.RenderArea 

    '设置文本对象

    For s As Integer = 0 To 3

        rx = New prt.RenderText '创建一个文本

        rx.Text = "那就叫你交"

        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center

        rx.Style.Spacing.Bottom = 1 '距离下边的对象2毫米

        ra.Children.Add(rx) '加入文本到RenderArea中

    Next

    rt.Cells(i,0).RenderObject = ra

   

    ra = new prt.RenderArea

    For t As Integer = 0 To 2

        '设置文本对象

        rt.Cells(i,1).Style.TextAlignVert = prt.AlignVertEnum.Center '文本垂直居中

       

        rx = New prt.RenderText '创建一个文本

        rx.Text = "那就叫你交ddddddddd"

        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center

        rx.Style.Spacing.Bottom = 1 '距离下边的对象2毫米

        ra.Children.Add(rx) '加入文本到RenderArea中

    Next

    rt.Cells(i,1).RenderObject = ra

   

Next

doc.Body.Children.Add(rt)

Doc.Preview()

    我想实现的效果图如下，请老师能不能提个其他思路，急！

     

此主题相关图片如下：图-2.jpg

   这个思路不错，谢谢！