Private Sub Positionen_EditComboClick(ByVal ListIndex As Long, ByVal sText As _
  String) 
  With Positionen
    Position_AfterCellEdit .Row, .Col, sText
  End With
End Sub

Private Sub Grid1_AfterCellEdit(nRow As Long, nCol As Long, ByVal sText As _
  String)
  With Positionen 
    If .Col = .GetCol("Bezeichnung") Then
      If Not IsNull(.EditValue) Then
        If .IsEditMode = MODE_ADDNEW Then
          If .CellNew(.GetCol("Art")) = 1 Then 
            .CellNew(.GetCol("NebenkostenID")) = .EditSubItem("ProduktID") 
            .CellNew(.GetCol("BezLang")) = .EditSubItem("Bezeichnung") 
            .CellNew(.GetCol("BestandHalterID")) = .EditSubItem("ProduktID") 
            .CellNew(.GetCol("ProduktBundleID")) = .EditSubItem( _
              "ProduktBundleID") 
 
          ElseIf .CellNew(.GetCol("Art")) = 2 Then 
            .CellNew(.GetCol("ProduktID")) = .EditSubItem("ProduktID") 
            .CellNew(.GetCol("BezLang")) = .EditSubItem("Bezeichnung") 
            .CellNew(.GetCol("ProduktBundleID")) = .EditSubItem( _
              "ProduktBundleID") 
            .CellNew(.GetCol("BestandHalterID")) = .EditSubItem("ProduktID") 
          End If 
 
        Else
          If .Text(.Row, .GetCol("Art")) = 1 Then 
            .Recordset.Fields("ProduktID") = Null 
            .Recordset.Fields("NebenkostenID") = .EditSubItem("ProduktID") 
            .Recordset.Fields("BezLang") = .EditSubItem("Bezeichnung") 
            .Recordset.Fields("ProduktBundleID") = .EditSubItem( _
              "ProduktBundleID") 
            .Recordset.Fields("BestandHalterID") = .EditSubItem("ProduktID") 
            .Recordset.Update 
            .RowRefresh 
 
          ElseIf .Text(.Row, .GetCol("Art")) = 2 Then 
            .Recordset.Fields("NebenkostenID") = Null 
            .Recordset.Fields("ProduktID") = .EditSubItem("ProduktID") 
            .Recordset.Fields("BezLang") = .EditSubItem("Bezeichnung") 
            .Recordset.Fields("ProduktBundleID") = .EditSubItem( _
              "ProduktBundleID") 
            .Recordset.Fields("BestandHalterID") = .EditSubItem("ProduktID") 
 
            .Recordset.Update 
            .RowRefresh 
          End If 
        End If 
      End If 
    End If
  End With 
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de