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

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

有谁能帮下忙？

这种问题，楼主你除了贴出代码，最好直接做个例子发上来，这样才好帮你分析。

谢谢小林