主题：[求助]报表分组统计

在打印报表的事件里面代码如下

Select Case e.Book.TempLate
    Case "热轧物流模板"
        e.Book.Marks.Add("A班", 0)
        e.Book.Marks.Add("B班", 0)
        e.Book.Marks.Add("C班", 0)
End Select

Select Case e.Book.TempLate
    Case "热轧物流模版"
        Dim C1, C2,C3,R1,R2,R3 As Double
        For Each dr As DataRow In e.GroupRows
            If dr("班组") = "A"
                C1 = C1 + dr("出口重量")
                R1 = R1 + dr("入口重量")
            ElseIf dr("班组") = "B"
                C2 = C2 + dr("出口重量")
                R2 = R2 + dr("入口重量")
            ElseIf dr("班组") = "C"
                C3 = C3 + dr("出口重量")
                R3 = R3 + dr("入口重量")
            End If
        Next
        e.Book.Marks("A班") = C1/R1
        e.Book.Marks("B班") = C2/R2
        e.Book.Marks("C班") = C3/R3
End Select

为什么生成的结果都是0

有谁能帮下忙？

谢谢小林