主题：请教代码

Dim r As Row   '---项目行---

If e.Table.DataTable.Name.Contains("附注表")  Then

    If Vars("fzToTal").count > 0 Then

        Dim sum(Vars("fzToTal").count - 1) As object   '---合计数组

        Dim sum1(Vars("fzToTal").count - 1) As object   '----报表数组

        Dim sum2(Vars("fzToTal").count - 1) As object   '----差异数组

        e.Table.DataTable.AddUserStyle("abc",Color.LightBLue,Color.blue)

        If e.Row(e.Table.Cols(0).name) = "合计" Then           

            e.Style = "abc"           

            For n As Integer = 0 To e.Row.Index -1

                r = e.Table.Rows(n)

                If r(e.Table.Cols(0).name) <> "合计" Then

                    For i As Integer = 1 To sum.length - 1

                        sum(i) += val(r(Vars("fzToTal")(i)))

                    Next

                End If

            Next

            For i As Integer = 1 To sum.length - 1

                e.Row(Vars("fzToTal")(i)) = Format(val(sum(i)),"n")

            Next

            

        End If

        If e.Row(e.Table.Cols(0).name) = "报表数" Then

            For i As Integer = 1 To sum1.length - 1

                sum1(i) = val(e.Row(Vars("fzToTal")(i)))

            Next

        End If

        

        If e.Row(e.Table.Cols(0).name) = "差异" Then

            For i As Integer = 1 To sum2.length - 1

 

                e.Row(Vars("fzToTal")(i)) = Format(val(sum1(i)),"n") - Format(val(sum(i)),"n")

            Next

        End If

              

    End If

End If