vb.net datagridview单元格内生成下拉列表控件

在 DataGridView 控件的 EditMode 属性设置为 EditOnEnter 或 EditOnKeystrokeOrF2 时，可以在单元格内生成下拉列表控件。

以下是在单元格内生成下拉列表控件的示例代码：

1. 在 Form_Load 事件中添加以下代码，创建一个 DataTable 并将其绑定到 DataGridView 控件：

Dim dt As New DataTable
dt.Columns.Add("Name")
dt.Columns.Add("Gender")
dt.Columns.Add("Age")
dt.Rows.Add("John", "Male", "25")
dt.Rows.Add("Mary", "Female", "30")
dt.Rows.Add("Tom", "Male", "35")
DataGridView1.DataSource = dt

2. 在 DataGridView1_EditingControlShowing 事件中添加以下代码，判断当前单元格是否是“Gender”列，如果是，则创建一个 ComboBox 控件并将其绑定到单元格：

Private Sub DataGridView1_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
    If DataGridView1.CurrentCell.ColumnIndex = 1 Then '判断当前单元格是否是“Gender”列
        Dim comboBox As ComboBox = TryCast(e.Control, ComboBox)
        If comboBox IsNot Nothing Then
            comboBox.DropDownStyle = ComboBoxStyle.DropDownList '设置 ComboBox 控件的下拉列表样式为 DropDownList
            comboBox.Items.Clear()
            comboBox.Items.Add("Male")
            comboBox.Items.Add("Female")
        End If
    End If
End Sub

注意：在 DataGridView1_EditingControlShowing 事件中创建 ComboBox 控件时，要将其下拉列表样式设置为 DropDownList，这样用户就只能从下拉列表中选择一个值。

完成上述操作后，在单元格内单击并进入编辑模式时，就会出现一个下拉列表控件。用户可以从下拉列表中选择一个值，然后按 Enter 键或单击其他单元格来保存所选值。