ComboBox选中自动完成项后按回车无法填充DataGridView问题求助

问题原因分析 #

1. ComboBox数据源冲突：代码中同时使用Items.AddRange和DataSource绑定，导致ComboBox的项管理混乱。设置DataSource后，ComboBox的Items集合会被数据源完全接管，手动添加的项会被覆盖，进而引发自动完成功能行为异常。
2. 事件触发范围不足：SelectionChangeCommitted事件仅在用户通过下拉列表点击选择项时触发，而通过自动完成提示选中项后按回车键的操作，并不会触发该事件，因此fillDataGridView1()不会被执行。

修复步骤 #

1. 修正ComboBox数据源配置 #

移除手动添加项的代码，仅保留DataSource绑定逻辑，确保数据源统一：

Private Sub PopulateComboBox()
    Dim query As String = "SELECT DISTINCT PNM FROM GSDTS UNION SELECT DISTINCT PNM FROM GSGTS ORDER BY PNM"
    Try
        Using con As OleDbConnection = New OleDbConnection(cn)
            Using sda As OleDbDataAdapter = New OleDbDataAdapter(query, con)
                'Fill the DataTable with records from Table.
                Dim dt As DataTable = New DataTable()
                sda.Fill(dt)
                'Insert the Default Item to DataTable.
                Dim row As DataRow = dt.NewRow()
                row(0) = ""
                dt.Rows.InsertAt(row, 0)
                
                '仅保留DataSource绑定，移除Items.AddRange相关代码
                Me.ComboBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend '改为SuggestAppend提升用户体验
                Me.ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems
                'Assign DataTable as DataSource.
                ComboBox1.DataSource = dt
                ComboBox1.DisplayMember = "PNM"
                ComboBox1.ValueMember = "PNM"
            End Using
        End Using
    Catch myerror As OleDbException
        MessageBox.Show("Error: " & myerror.Message)
    Finally
    End Try
End Sub

2. 补充事件处理，覆盖回车场景 #

添加KeyDown事件处理，检测回车键触发数据填充，同时保留SelectionChangeCommitted处理下拉选择的情况：

Private Sub ComboBox1_SelectionChangeCommitted(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted
    fillDataGridView1()
End Sub

'新增KeyDown事件处理，响应回车键
Private Sub ComboBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles ComboBox1.KeyDown
    If e.KeyCode = Keys.Enter Then
        '确保ComboBox选中项与输入文本匹配
        Dim selectedItem As DataRowView = ComboBox1.SelectedItem
        If selectedItem IsNot Nothing AndAlso selectedItem("PNM").ToString() = ComboBox1.Text Then
            fillDataGridView1()
        Else
            '若输入文本不在列表中，可按需添加提示逻辑或直接执行查询
            fillDataGridView1()
        End If
        e.Handled = True '阻止回车键触发其他默认行为
    End If
End Sub

3. 可选优化 #

将AutoCompleteMode设为AutoCompleteMode.SuggestAppend，用户输入时不仅会显示提示列表，还会自动补全文本，提升操作流畅度。

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