Private Sub Grid1_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
  oComboBox As sevDataGrid2.EditComboBox)
  With Grid1
    If nCol = .GetCol("strasse") Then
      Dim sPlz As String
 
      ' PLZ ermitteln
      If .IsEditMode = MODE_ADDNEW Then
        sPlz = .CellNew("plz")
      Else
        sPlz = .Text(nRow, "plz")
      End If
 
      ' ...
      ' hier jetzt die ComboBox mit dem Straßenverzeichnis
      ' anhand der PLZ füllen
      ' ...
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de