解决DataGridView ComboBox重启后无法显示非列表项文本的问题

问题背景 #

• DataGridView的ComboBox列已绑定SQL数据表，下拉列表包含固定项：MD_FF、MM_KJ、DR_MO、DN_OP、WE_FK、XL_LK、QA_ZD、MF_LK、WX_UK、BH_KK、GG_DC
• 用户可选择列表项或输入自定义组合值（如MD_FF|MM_KJ|DN_OP），当前代码已实现输入保存功能
• 关闭并重新打开表单后，非列表项的自定义内容无法在ComboBox中显示

现有实现代码 #

Private Sub DatagridView1_CellValidating(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles DatagridView1.CellValidating
    If (e.ColumnIndex = DatagridView1.Columns(0).DisplayIndex) Then
        Dim comboBoxColumn As DataGridViewComboBoxColumn = CType(DatagridView1.Columns(0), DataGridViewComboBoxColumn)
        If (Not comboBoxColumn.Items.Contains(e.FormattedValue)) Then
            comboBoxColumn.Items.Add(e.FormattedValue)
            DatagridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = comboBoxColumn.Items(comboBoxColumn.Items.Count - 1)
        End If
    End If
End Sub

Private Sub DatagridView1(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DatagridView1.EditingControlShowing
    If (DatagridView1.CurrentCellAddress.X = DatagridView1.Columns(0).DisplayIndex) Then
        Dim cb As ComboBox = CType(e.Control, ComboBox)
        If (cb IsNot Nothing) Then
            cb.DropDownStyle = ComboBoxStyle.DropDown
        End If
    End If
End Sub

问题根源 #

当前代码仅在用户编辑单元格时，临时将自定义值添加到ComboBox列的Items集合中，但这个集合是内存临时数据，表单关闭后就会被销毁。重启表单时，ComboBox列只会加载初始的固定项，无法识别数据库中已保存的自定义值，导致单元格显示空白。

解决方案 #

1. 表单加载时同步所有已保存的值 #

在表单的Load事件中，从数据库读取该列的所有已保存值（包括固定项和自定义项），去重后添加到ComboBox列的Items集合中。这样重启表单后，所有存在的值都能被ComboBox识别并显示。

示例代码：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 1. 查询数据库中该列的所有值，替换为你的实际查询逻辑
    Dim connectionString As String = "你的数据库连接字符串"
    Dim query As String = "SELECT DISTINCT YourColumnName FROM YourTableName" ' 替换为你的列名和表名
    Dim dt As New DataTable()
    
    Using conn As New SqlClient.SqlConnection(connectionString)
        Using cmd As New SqlClient.SqlCommand(query, conn)
            conn.Open()
            dt.Load(cmd.ExecuteReader())
        End Using
    End Using
    
    ' 2. 获取目标ComboBox列
    Dim comboBoxColumn As DataGridViewComboBoxColumn = CType(DatagridView1.Columns(0), DataGridViewComboBoxColumn)
    
    ' 3. 添加固定项（确保固定项不会丢失）
    Dim fixedItems As New List(Of String) From {
        "MD_FF", "MM_KJ", "DR_MO", "DN_OP", "WE_FK", 
        "XL_LK", "QA_ZD", "MF_LK", "WX_UK", "BH_KK", "GG_DC"
    }
    For Each item In fixedItems
        If Not comboBoxColumn.Items.Contains(item) Then
            comboBoxColumn.Items.Add(item)
        End If
    Next
    
    ' 4. 添加数据库中的自定义值，去重
    For Each row As DataRow In dt.Rows
        Dim value As String = row("YourColumnName").ToString() ' 替换为你的列名
        If Not comboBoxColumn.Items.Contains(value) Then
            comboBoxColumn.Items.Add(value)
        End If
    Next
End Sub

2. 优化列索引判断逻辑 #

现有代码使用DisplayIndex判断列，容易因列顺序调整出错，建议改用列名或Index：

' 替换原CellValidating事件中的列判断
If e.ColumnIndex = DatagridView1.Columns("YourColumnName").Index Then
    ' 原有逻辑保留
End If

' 替换原EditingControlShowing事件中的列判断
If DatagridView1.CurrentCellAddress.X = DatagridView1.Columns("YourColumnName").Index Then
    ' 原有逻辑保留
End If

3. 确保保存逻辑正确 #

确认在CellValidating事件中，自定义值已正确保存到数据库（如果现有代码未包含保存逻辑，需补充数据库插入/更新操作）。

说明 #

通过在表单加载时同步数据库中的所有值，让ComboBox列的Items集合包含所有可能的选项，这样单元格中的自定义值就能被正确识别并显示，解决重启后空白的问题。

内容的提问来源于stack exchange，提问作者Imad