Private Sub sevGrid1_AfterCellEdit(nRow As Long, nCol As Long, ByVal sText As _
  String)
  With sevGrid1
    If .IsEditMode = MODE_ADDNEW Then
      If nCol = .GetCol("KFZ") Then
        ' Telefon anhand ausgewählter KFZ autom. eintragen
        If Not IsNull(.EditValue) Then
          .CellNew("Telefon") = .EditSubItem("Telefon")
          .CellNew("SUB") = .EditSubItem("SUB")
        End If
      End If
    End If
  End With
End Sub
 
Private Sub sevGrid1_EditComboClick(ByVal ListIndex As Long, ByVal sText As _
  String)
 ' Beim Hinzufügen/Ändern einer neuen Datenzeile, Telefon übernehmen
  With sevGrid1
      If .Col = .GetCol("KFZ") Then
      If .IsEditMode = MODE_ADDNEW Then
        sevGrid1_AfterCellEdit .Rows + 1, .Col, sText
      Else
        .Text(.Row, "Telefon") = .EditSubItem("Telefon")
        .Text(.Row, "SUB") = .EditSubItem("SUB")
      End If
    End If
  End With
End Sub
 
Private Sub sevGrid1_AfterUpdate(ByVal nRow As Long, ByVal nCol As Long, ByVal _
  sText As String)
  With sevGrid1
    If nCol = .GetCol("KFZ") Then
      .Recordset.Fields("Telefon") = .EditSubItem("Telefon")
      .Recordset.Fields("SUB") = .EditSubItem("SUB")
      .Recordset.Update
    End If
      .RowRefresh
  End With
End Sub

Private Sub sevGrid1_BeforeSort(ByVal Sort As String, Cancel As Boolean)
With sevGrid1
If .IsEditMode = MODE_EDIT Then
Cancel = True
  Else
  If .LostFocusEditMode = GRID_UPDATEROW Then
  Cancel = True
  End If
End If
End With
End Sub