합계를 스크립트로 작성하기

합계를 스크립트 작성하기
 
  Public Overrides Sub DoRetrieveEvent()

        If RetrieveCheck() = False Then
            Return
        End If

        MyBase.DoRetrieveEvent()
      
        Dim decTotTagAmt As Decimal = 0
        Dim decTotMatSum As Decimal = 0

        For Each dr As DataRow In tds.Tables(0).Rows
            decTotTagAmt += dr("TAG_AMT")
            decTotMatSum += dr("SUM_ALL2")
        Next

        If decTotMatSum = 0 Then
            Me.colRATE.SummaryItem.DisplayFormat = 0
        Else
            Me.colRATE.SummaryItem.DisplayFormat = Func.Round(decTotTagAmt / decTotMatSum, 1)
        End If

        tds.AcceptChanges()

    End Sub