Private Sub Grid1_EditComboClick(ByVal ListIndex As Long, ByVal sText As String)
  With Grid1
    If .Col = .GetCol("PLZID") Then
      If .IsEditMode = MODE_ADDNEW Then
        .CellNew("Ort") = .EditSubItem("Ort")
      End If
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de