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
        If .Text(i, 4) <> "" Then nSumme1 = nSumme1 + CLng(.Text(i, 4))
        If .Text(i, 5) <> "" Then nSumme2 = nSumme2 + CLng(.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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de