如何以编程方式设置DataGridView内嵌ComboBox的选中值？

核心问题排查与修复 #

你遇到的后台值正确但界面未同步显示的问题，可从以下几个关键点入手解决：

1. 循环条件语法错误 #

代码内层循环的终止条件写错了：

For i = 0 To dt.Rows.Count = -1

这里的dt.Rows.Count = -1是布尔判断（结果为False，对应数值0），会导致内层循环无法有效遍历DataTable数据。正确写法应为：

For i = 0 To dt.Rows.Count - 1

2. ComboBox列绑定配置校验 #

确保DataGridViewComboBoxColumn的ValueMember和DisplayMember设置正确：

• ValueMember：对应ComboBox选项的实际存储值，必须和你设置的dt.Rows(i).Item(2)的类型、内容完全匹配
• DisplayMember：对应ComboBox界面显示的文本内容
  如果设置的单元格值与ValueMember不匹配，后台值会存在，但界面无法匹配到对应的显示文本。

3. 触发界面刷新 #

设置值后，需要通知DataGridView更新界面，可添加以下代码：

dgvFields.EndEdit() ' 结束当前编辑状态
dgvFields.Refresh() ' 强制刷新控件显示

4. 数据类型一致性检查 #

检查dt.Rows(i).Item(2)的类型是否与ComboBox列ValueMember的类型完全一致（比如同为String或Integer），类型不匹配会导致值无法在界面上渲染。

修正后的完整代码示例 #

Dim DA As New iDB2DataAdapter(strsql, Connection)
Dim dt As New DataTable
Dim i, j As Integer

DA.Fill(dt)
For j = 0 To dgvFields.Rows.Count - 1
    ' 修正内层循环条件
    For i = 0 To dt.Rows.Count - 1
        If dgvFields.Rows(j).Cells(0).Value = dt.Rows(i).Item(1) Then
            dgvFields.Rows(j).Cells(2).Value = dt.Rows(i).Item(2)
            ' 触发当前行的编辑结束
            dgvFields.Rows(j).EndEdit()
            Exit For ' 找到匹配项后退出内层循环，提升效率
        End If
    Next
Next
' 整体刷新控件
dgvFields.Refresh()

内容的提问来源于stack exchange，提问作者rs-cci