Private Sub Grid1_RowLoaded(ByVal nRow As Long, Item As sevDataGrid.ListItem)
Dim i As Long, nSumme1 As Currency, nSumme2 As Currency
 
With Item
 
       With Grid1
              nSumme1 = 0
                For i = 0 To nRow
                   nSumme1 = nSumme1 + Val(.Text(i, 4))
                   nSumme2 = nSumme2 + Val(.Text(i, 5))
                Next i
       End With
 
           .CellText(6) = FormatNumber(nSumme1 - nSumme2, 2)
   If Val(.CellText(4)) = 0 Then .CellText(4) = ""
   If Val(.CellText(5)) = 0 Then .CellText(5) = ""
   If Val(.CellText(6)) = 0 Then .CellText(6) = ""
           .CellText(2) = Format(CDate(.CellText(2)), "Dd  mmm")
End With
End Sub