Private Sub Form_Load()
  With Grid1
    .DataMode = Mode_List
 
    ' Spalten erstellen
    With .ColumnAdd("menge", "Menge", 1000, ALIGNMENT_RIGHT, , , , , _
      SORT_NUMERIC)
      .InputType = INPUT_NUMERIC
      .Decimals = 0
    End With
    .ColumnAdd "bez", "Bezeichnung"
    With .ColumnAdd("preis", "Preis", 1200, ALIGNMENT_RIGHT, , , , , _
      SORT_CURRENCY)
      .InputType = INPUT_CURRENCY
    End With
    With .ColumnAdd("summe", "Summe", 1200, ALIGNMENT_RIGHT, , , , , _
      SORT_CURRENCY)
      .LockEdit = True
    End With
 
    ' Editieren zulassen
    .AllowEdit = True
  End With
End Sub

Private Sub Grid1_AfterCellEdit(nRow As Long, nCol As Long, ByVal sText As _
  String)
  If nCol = 1 Or nCol = 3 Then
    ' Summe aktualisieren
    Dim Menge As Long
    Dim Preis As Double
 
    With Grid1
      If .IsEditMode = MODE_ADDNEW Then
        Menge = Val(.CellNew("menge"))
        If Len(.CellNew("preis")) > 0 Then Preis = CDbl(.CellNew("preis"))
        .CellNew("Summe") = FormatCurrency(Menge * Preis)
      Else
        Menge = Val(.Text(nRow, "menge"))
        If Len(.Text(nRow, "preis")) > 0 Then Preis = CDbl(.Text(nRow, "preis"))
        .Text(nRow, "Summe") = FormatCurrency(Menge * Preis)
      End If
    End With
  End If
End Sub

Private Sub Command1_Click()
  ' Neue Datenzeile
  Grid1.AddNew
  Grid1.CellNew("menge") = 1
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de