Me.CustomersTableAdapter.Fill(Me.NWINDDataSet.Customers)
 
        DataGridView1.AutoGenerateColumns = True
        DataGridView1.DataSource = Me.CustomersBindingSource
 
        Dim CityComboColumn As New DataGridViewComboBoxColumn
        CityComboColumn.HeaderText = "City"
        CityComboColumn.DataPropertyName = "City"
        CityComboColumn.DisplayIndex = 5
 
        DataGridView1.Columns.RemoveAt(5)
        DataGridView1.Columns.Add(CityComboColumn)
 
        For Each row As DataRow In Me.NWINDDataSet.Customers.Rows
            Dim city As String = row("City")
            If Not CityComboColumn.Items.Contains(city) Then
                CityComboColumn.Items.Add(city)
            End If
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist