如何通过DisplayMember设置ComboBox选中项？VB.NET技术求助

我通过以下方式配置了ComboBox：

With Me.cboEmps
    .DataSource = myDSemp.Tables(0) 'SQL语句执行结果
    .DisplayMember = "employee" '员工姓名
    .ValueMember = "employee_id"
End With

我希望通过"employee"这个DisplayMember来设置ComboBox的选中项。由于后续函数需要引用ValueMember，因此不能仅显示正确文本，必须选中对应项。我尝试了多种方法：

index = cboEmps.Items.IndexOf(name)
cboEmps.SelectedIndex = index

但index始终返回-1；而使用cboEmps.SelectedText = name时，每次触发事件都会追加显示姓名字符串。我希望避免遍历ComboBox项进行比对的耗时操作。

嘿，我完全懂你的困扰——绑定数据源后的ComboBox直接用IndexOf确实行不通，因为Items集合里存的是DataRow对象，不是单纯的姓名字符串，所以你用姓名去查找肯定找不到，返回-1是必然的结果。

给你两个高效的办法，都不用手动遍历项集合：

方法1：用FindStringExact精准定位索引 #

这个方法是专门为绑定了DisplayMember的ComboBox设计的，它会直接匹配你设置的DisplayMember对应的值，返回对应的项索引：

Dim targetIndex As Integer = cboEmps.FindStringExact(name)
If targetIndex <> -1 Then
    cboEmps.SelectedIndex = targetIndex
End If

FindStringExact会严格匹配传入的name和ComboBox显示的文本，找到后直接设置选中索引即可，既高效又能保证对应的ValueMember是正确的，完美满足你的需求。

方法2：从数据源直接查找目标行设置SelectedItem #

既然你的数据源是DataTable，那可以直接利用DataTable的查询能力找到目标行，再赋值给ComboBox的SelectedItem：

' 注意：如果name包含单引号，要替换成两个单引号避免语法错误
Dim safeName As String = name.Replace("'", "''")
Dim targetRows As DataRow() = myDSemp.Tables(0).Select($"employee = '{safeName}'")
If targetRows.Length > 0 Then
    cboEmps.SelectedItem = targetRows(0)
End If

这种方法直接从数据源层面获取目标数据，不需要依赖ComboBox的项集合，效率同样很高，而且逻辑更直观——毕竟你的ComboBox数据本来就来自这个DataTable。

另外补充一下：SelectedText属性只是用来操作ComboBox编辑区域里的选中文本片段，根本不是用来设置选中项的，所以才会出现追加字符串的问题，以后千万别用它来做这件事啦。

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