主题：【求助】关于循环的最后一个数字

Dim daaa As New prt.RenderArea

daaa.Stacking = prt.StackingRulesEnum.InlineLeftToRight

doc.Body.Children.Add(daaa)

daaa.Width = "Parent.Width"

Dim rc As Integer = tbl.BottomRow - tbl.TopRow + 1

For i As Integer = tbl.TopRow To tbl.BottomRow Step 5

    Dim rw As Row = tbl.Rows(i)

    Dim h As Integer

    Dim s As String = rw("答案")

    For j As Integer = 1 To 4

        If i+j <= tbl.BottomRow

            rw  = tbl.Rows(i+j)

            s = s & rw("答案")

            s = s.ToUpper

            h = i-tbl.TopRow

        End If

    Next

    Output.Show(h)

    Dim xhda As New prt.RenderText '定义一个文本对象

    Dim da As New prt.RenderArea '定义一个容器

    da.Width = 45 '宽度53毫米

    'da.Height = 24 '高度24毫米

    da.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割

    da.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割

    daaa.ChildRen.Add(da) '将容器加入到报表中

    '加入标题

    xhda.text = h+1 & "-" & math.min(h+5,rc) & ":" &  s

    'xhda.Style.FontBold = True '字体加粗

    xhda.Style.FontSize = 16 '大体大小为16磅

    

    da.Children.Add(xhda) '加入到容器中

    

Next