主题：请教代码

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

Dim r As Row   '---项目行---
Vars("fzToTal") = new List(Of String)
Vars("fzToTal").add("数量")
Vars("fzToTal").add("金额")
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 = 0 To sum.length - 1
                        sum(i) += val(r(Vars("fzToTal")(i)))
                    Next
                End If
            Next
            For i As Integer = 0 To sum.length - 1
                e.Row(Vars("fzToTal")(i)) = val(sum(i))
            Next
        End If
       
       
        If e.Row(e.Table.Cols(0).name) = "差异数" Then
            Dim idx1 As Integer = e.Table.FindRow(e.Table.Cols(0).name & " = '报表数'")
            Dim idx2 As Integer = e.Table.FindRow(e.Table.Cols(0).name & " = '合计'")
            For i As Integer = 0 To sum2.length - 1
                e.Row(Vars("fzToTal")(i)) = val(e.Table.Rows(idx1)(Vars("fzToTal")(i))) - val(e.Table.Rows(idx2)(Vars("fzToTal")(i)))
            Next
        End If
       
    End If
End If

drawcell执行的时候，一个单元格一个单元格运行的，也就是每次进入，e.Row都是不同，不可能获取多行的数据，必须用findrow查询