主题：汇总模式和非汇总模式打印的结果不一样

Dim h,i,m,l,r,colscount As Integer
Dim colname As String
Dim tb As Table=Tables("" & e.Form.name & "_table1")
Dim cr As Row=Tables("打印设置").Rows(0) '打印设置表第一行
Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
Dim rs As New prt.RenderText() '定义一个文本对象
Dim rs1 As New prt.RenderText() '定义一个文本对象
'设置纸张方向
If vars("横向打印")=True
    Doc.PageSetting.Landscape = True '横向打印
Else
    Doc.PageSetting.Landscape = False '纵向打印
End If

m=vars("左边距")
l=vars("右边距")

Doc.PageSetting.LeftMargin = 10 '设置左边距
Doc.PageSetting.RightMargin = 10 '设置右边距

rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
rt.Rows.Count = Tb.Rows.Count
r = Tb.Rows.Count '设置行数
'表可见列数
colscount=0
M=0
For Each cl As col In tb.cols
    If cl.visible=True
        colscount=colscount+1
        l = cr(cl.name)
        rt.Cols(M).Width = l
        M=M+1
    End If
Next
rt.Cols.Count =colscount '设置列数
For n As Integer = 0 To tb.rows.count(True)-1 Step 1
    Dim dr As Row=tb.rows(n,True)
    m=0
    For Each cl As col In tb.cols
        If cl.visible=True And n=0
            rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '文本内容水平居中
            rt.Style.TextAlignVert = prt.AlignVertEnum.Center
            rt.Cells(0,m).Text =cl.name
            If cl.IsNumeric
                If dr.IsNull(cl.name)= False
                    rt.Cells(n+1,m).Style.TextAlignVert = prt.AlignVertEnum.Center
                    rt.Cells(n+1,m).Style.TextAlignHorz = prt.AlignHorzEnum.right
                    If Isnumeric(dr(cl.name).Tostring) Then
                       rt.Cells(n+1,m).Text = Format(dr(cl.name),"#,##0.00")
                    Else
                        rt.Cells(n+1,m).Text = dr(cl.name).Tostring
                    End If
                End If
            End If
            If cl.IsString
                rt.Cells(n+1,m).Style.TextAlignVert = prt.AlignVertEnum.Center
                rt.Cells(n+1,m).Style.TextAlignHorz = prt.AlignHorzEnum.left
                rt.Cells(n+1,m).Text =dr(cl.name)
            End If
            m=m+1
        End If
        If cl.visible=True And n<>0
            If cl.IsNumeric
                If dr.IsNull(cl.name) = False
                    rt.Cells(n+1,m).Style.TextAlignVert = prt.AlignVertEnum.Center
                    rt.Cells(n+1,m).Style.TextAlignHorz = prt.AlignHorzEnum.right
                    If Isnumeric(dr(cl.name).Tostring) Then
                       rt.Cells(n+1,m).Text = Format(dr(cl.name),"#,##0.00")
                    Else
                        rt.Cells(n+1,m).Text = dr(cl.name).Tostring
                    End If
                End If
            End If
            If cl.IsString Or cl.Isdate
                rt.Cells(n+1,m).Style.TextAlignHorz = prt.AlignHorzEnum.left
                rt.Cells(n+1,m).Style.TextAlignVert = prt.AlignVertEnum.Center
                rt.Cells(n+1,m).Text =dr(cl.name)
            End If
            m=m+1
        End If
    Next
Next

rt.RowGroups(0, tb.HeaderRows).Header = prt.TableHeaderEnum.All '利用行组功能设置表头
tb.AutoSizeRows()

doc.Body.Children.Add(rs) '将文本对象加入到表格中
doc.Body.Children.Add(rs1) '将文本对象加入到表格中
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rs = New prt.RenderText() '再次定义一个文本对象
rs1 = New prt.RenderText() '再次定义一个文本对象
doc.Body.Children.Add(rs) '将文本对象加入到表格中
doc.Body.Children.Add(rs1) '将文本对象加入到表格中
Doc.Preview() '预览报表