Разные ComboBox в одной колонке DataGridView?

    Enum cmbBxValues
        a
        b
        f1 = 1
        f2 = 3
        f3 = 4
    End Enum
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            DataGridView1.AutoGenerateColumns = False
 
            Dim cmbBxCol As New DataGridViewComboBoxColumn
            With cmbBxCol
                .HeaderText = "ComboBoxes"
                .Name = "ComboBoxes"
                .FlatStyle = FlatStyle.Flat
                Dim cell As DataGridViewComboBoxCell = New DataGridViewComboBoxCell
                cell.Style.BackColor = Color.Wheat 'для наглядности
                cell.ValueType = GetType(System.String)
                cell.Items.AddRange([Enum].GetNames(GetType(cmbBxValues)))
                .CellTemplate = cell
            End With
 
            Me.DataGridView1.Columns.Insert(0, cmbBxCol)
            
            'инициализируем Грид, т.е. создаём строки
            Dim nRow As DataGridViewRow
            For i = 0 To 2
                nRow = New DataGridViewRow
                Me.DataGridView1.Rows.Add(nRow)
                Dim cell As DataGridViewComboBoxCell = nRow.Cells(cmbBxCol.Index)
                Me.DataGridView1.Rows(i).Cells(cmbBxCol.Index).Value = cell.Items(0)
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
            Me.Close()
        End Try
    End Sub
 
    Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
        Dim DGV As DataGridView = CType(sender, DataGridView)
        Dim editCtrl As DataGridViewComboBoxEditingControl = TryCast(e.Control, DataGridViewComboBoxEditingControl)
 
        If editCtrl IsNot Nothing Then
            editItems(editCtrl, DGV.CurrentRow.Index)
        End If
    End Sub
 
    Private Sub editItems(ByVal editControl As DataGridViewComboBoxEditingControl, ByVal selectRow As Integer)
        'удаляем лишние значения по условию
        If selectRow = 1 Then
            editControl.Items.RemoveAt(1)
            editControl.Items.RemoveAt(0)
        Else
            editControl.Items.RemoveAt(4)
            editControl.Items.RemoveAt(3)
            editControl.Items.RemoveAt(2)
        End If
    End Sub

Public Class Form1
 
    Dim cmbBxVal1() As String = {"0,00", "0,000", "0,0000"}
    Dim cmbBxVal2() As String = {"dd.mm.yyyy", "yyyy.mm.dd"}
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        Try
            DataGridView1.AutoGenerateColumns = False
 
            Dim cmbBxCol As New DataGridViewComboBoxColumn
            With cmbBxCol
                .HeaderText = "ComboBoxes"
                .Name = "ComboBoxes"
                .FlatStyle = FlatStyle.Flat
                Dim cell As DataGridViewComboBoxCell = New DataGridViewComboBoxCell
                cell.Style.BackColor = Color.Wheat 'для наглядности
                cell.ValueType = GetType(System.String)
                'этот вариант внесения значений работает как с ссылочными типами, так и типами значениями
                For Each item As String In cmbBxVal1
                    cell.Items.Add(item)
                Next
                For Each item As String In cmbBxVal2
                    cell.Items.Add(item)
                Next
                'Этот вариант работает только с ссылочными типами 
                'cell.Items.AddRange(cmbBxVal1)
                'cell.Items.AddRange(cmbBxVal2)
                .CellTemplate = cell
            End With
 
            Me.DataGridView1.Columns.Insert(0, cmbBxCol)
 
            'инициализируем Грид, т.е. создаём строки
            Dim nRow As DataGridViewRow
            For i = 0 To 2
                nRow = New DataGridViewRow
                Me.DataGridView1.Rows.Add(nRow)
                Me.DataGridView1.Rows(i).Cells(cmbBxCol.Index).Value = cmbBxVal1(i)
            Next
 
        Catch ex As Exception
            MsgBox(ex.Message)
            Me.Close()
        End Try
    End Sub
 
    Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) _
        Handles DataGridView1.EditingControlShowing
        Dim DGV As DataGridView = CType(sender, DataGridView)
        Dim editCtrl As DataGridViewComboBoxEditingControl = TryCast(e.Control, DataGridViewComboBoxEditingControl)
 
        If editCtrl IsNot Nothing Then
            editItems(editCtrl, DGV.CurrentRow.Index)
        End If
    End Sub
 
    Private Sub editItems(ByRef editControl As DataGridViewComboBoxEditingControl, ByVal selectRow As Integer)
        'НЕ удаляем значения, а перезаполняем.
        'Важно чтобы добавляемые значения входили в диапазон CellTemplate
        editControl.Items.Clear()
        If selectRow = 1 Then
            For Each item As String In cmbBxVal1
                editControl.Items.Add(item)
            Next
        Else
            For Each item As String In cmbBxVal2
                editControl.Items.Add(item)
            Next
        End If
    End Sub
 
End Class