Select Case e.DataCol.Name

    Case "班耗电量"

        Dim dr As DataRow

        Dim drs As List(of DataRow)

        drs = e.DataTable.Select("班组=\'" & e.DataRow("班组") & "\' and 日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#", "日期 ")

        If drs.Count=1 Then

            e.DataRow("累计电量")=e.DataRow("班耗电量")

            e.DataRow("累计成本")=e.DataRow("累计电量")* dn("电力")

            dr("累计成本")=e.DataRow("累计成本")

        Else

            For i As Integer = 1 To drs.Count - 1

                drs(i)("累计电量") = drs(i-1)("累计电量") + drs(i)("班耗电量")

                drs(i)("累计成本")= drs(i)("累计电量")* dn("电力")

            Next

        End If

End Select

没有增加红色内容时，代码运行正常，加上红色代码后显示错误，请教如何改正。