主题：专业报表的统计问题

        For r As Integer = p * prs To math.min(Rows.Count - 1, ( p + 1) * prs - 1)

            sum += rows(r)("数量") '计算合计

            For j As Integer = 0 To cols.Length - 1

                rt.Cells(r - p * prs + 1, j+1).Text = rows(r)(cols(j))

            Next

rt.Cells(r - p * prs + 1, 0).Text = r+1

        Next