У меня нет версии VB.Net, но, надеюсь, этот быстрый фрагмент C # поможет вам или укажет правильное направление.
В этом примере я настроил простой DataGridView с 2 столбцами. Первый - это DataGridViewComboBox с двумя вариантами: «Текст» или «Комбо».
Второй столбец изначально установлен на DataGridViewTextBoxColumn от дизайнера.
Я обрабатываю событие CurrentCellDirtyStateChanged в DataGridView. Я проверяю, не загрязнена ли ячейка, и проверяю только первый столбец (ComboBox). Вы должны вызвать CommitEdit, чтобы получить новое значение в комбо, иначе вы будете смотреть на предыдущее значение. Основываясь на выборе в поле со списком, я перезаписываю ячейку во 2-м столбце новой ячейкой этого типа.
Вы бы добавили свою собственную логику (заполните выпадающие списки и обработайте значение). Возможно, вы захотите сохранить значение и затем поместить его обратно в ячейку или что-то еще.
Вот код, который я использовал и сделал быстрый и грязный тест:
private void dataGridView1_CurrentCellDirtyStateChanged(object sender, EventArgs e)
{
if (dataGridView1.IsCurrentCellDirty == false)
{
return;
}
dataGridView1.CommitEdit(DataGridViewDataErrorContexts.Commit);
if (dataGridView1.CurrentCell.ColumnIndex == 0)
{
if (((string)dataGridView1.CurrentCell.Value) == "Text")
{
dataGridView1.Rows[dataGridView1.CurrentCell.RowIndex].Cells[1] = new DataGridViewTextBoxCell();
}
else if (((string)dataGridView1.CurrentCell.Value) == "Combo")
{
dataGridView1.Rows[dataGridView1.CurrentCell.RowIndex].Cells[1] = new DataGridViewComboBoxCell();
}
}
}
Вот быстрый перевод на VB, который я тестировал и работает.
Public Class Form1
Private Sub DataGridView1_CurrentCellDirtyStateChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGridView1.CurrentCellDirtyStateChanged
If DataGridView1.IsCurrentCellDirty = False Then
Return
End If
DataGridView1.CommitEdit(DataGridViewDataErrorContexts.Commit)
If DataGridView1.CurrentCell.ColumnIndex = 0 Then
If CStr(DataGridView1.CurrentCell.Value) = "Text" Then
DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells(1) = New DataGridViewTextBoxCell
ElseIf CStr(DataGridView1.CurrentCell.Value) = "Combo" Then
DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells(1) = New DataGridViewComboBoxCell
End If
End If
End Sub
Конечный класс
Вы потеряете любое значение, хранящееся в этом столбце, поэтому вам необходимо сначала сохранить его.
Jon