Private Sub Grid1_EditComboClick(ByVal ListIndex As Long, ByVal sText As String)
  ' Beim Hinzufügen einer neuen Datenzeile ID direkt in andere Spalte übernehmen
  With Grid1
    If .IsEditMode = MODE_ADDNEW Then
      If .Col = 1 Then
        Grid1_AfterCellEdit .Rows + 1, .Col, sText
      End If
    End If
  End With
End Sub

Private Sub Grid1_AfterCellEdit(nRow As Long, nCol As Long, ByVal sText As _
  String)
  If StrPtr(sText) = 0 Then Exit Sub
 
  With Grid1
    If nCol = 1 Then
      If Not IsNull(.EditValue) Then
        If .IsEditMode = MODE_ADDNEW Then
          .CellNew("spalte_x") = .EditSubItem("ID")
        Else
          .Recordset.Edit ' nur falls DAO
          .Recordset.Fields("spalte_x") = .EditSubItem("ID")
          .Recordset.Update
          .RowRefresh
        End If
      End If
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de