DataGridViewComboBoxColumn { Name=, Index=-1 }

   Dim myComboBox As DataGridViewComboBoxColumn
 
       '...
 
   Private Sub loadComboBox()
        myComboBox= New DataGridViewComboBoxColumn
        For i As Int16 = 0 To 10
            myComboBox.Items.Add("zeile "+i)
        Next
   End Sub
 
      '...    
 
      ' Tabellenkopf definieren 
        myDataTable.Columns.Add(New Data.DataColumn("Nr"))
        myDataTable.Columns.Add(New Data.DataColumn("Betrag"))
        myDataTable.Columns.Add(New DataGridViewComboBoxDisplayStyle)
        myDataTable.Columns.Add(New Data.DataColumn("Text"))
 
        '...
 
        While myDR.Read()
                dataRow = myDataTable.NewRow()                ' Tabellenzeile 
                ' definieren
                Dim rowArray(5) As Object
                ' -----------------------------------------
                rowArray(0) = myDR("NR").ToString()
                rowArray(1) = myDR("Betrag").ToString()            
                myComboBox.HeaderText = "Währung"
                myComboBox.Width = 90
                rowArray(3) = myComboBox
                rowArray(4) = myDR("Text").ToString()
                dataRow.ItemArray = rowArray                
                myDataTable.Rows.Add(dataRow)               
            End While
       DataGridView1.DataSource = myDataTable
       '...