VB中修改ComboBox选中值显示未生效，问题排查求助

核心问题1：ComboBox的DropDownStyle限制 #

如果你的ComboBox的DropDownStyle属性设置为DropDownList，直接修改Text属性是无效的——这种模式下ComboBox只能显示其Items集合里的原有选项，不允许自定义修改显示文本。

核心问题2：字符串处理逻辑不够可靠 #

你当前用IndexOf(" ")找第一个空格再偏移9位的方式太死板，若文本格式稍有变化（比如空格数量不同）就会出错。应该直接以分隔符-为基准截取：

Dim fullText As String = cboProduct.SelectedItem.ToString()
Dim dashIndex As Integer = fullText.IndexOf("-")
If dashIndex > 0 Then
    Dim displayText As String = fullText.Substring(0, dashIndex).Trim()
    ' 后续处理显示逻辑
End If

针对性解决方案 #

根据你的需求，分两种情况处理：

情况1：允许ComboBox手动输入（DropDownStyle设为DropDown）

确保在SelectedIndexChanged事件中执行修改，同时避免循环触发事件：

Private Sub cboProduct_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboProduct.SelectedIndexChanged
    ' 先取消事件绑定，防止循环触发
    RemoveHandler cboProduct.SelectedIndexChanged, AddressOf cboProduct_SelectedIndexChanged
    
    Dim fullText As String = cboProduct.SelectedItem.ToString()
    Dim dashIndex As Integer = fullText.IndexOf("-")
    If dashIndex > 0 Then
        cboProduct.Text = fullText.Substring(0, dashIndex).Trim()
    End If
    
    ' 重新绑定事件
    AddHandler cboProduct.SelectedIndexChanged, AddressOf cboProduct_SelectedIndexChanged
End Sub

情况2：使用DropDownList模式（不允许手动输入）

这种模式下无法直接修改Text，需要提前处理显示文本，或利用控件的Tag属性存储完整值：

' 初始化ComboBox时设置显示文本与对应值
cboProduct.Items.Add(New With {.DisplayText = "Black Shredded", .Value = "Black Shredded - 7.90"})
cboProduct.DisplayMember = "DisplayText"
cboProduct.ValueMember = "Value"

额外注意点 #

你代码里的If cboProduct.SelectedIndex = 0 Then限制了只有选中第一个选项才生效，如果目标选项不是索引0，这部分判断会导致逻辑不触发，建议去掉该判断或根据实际需求调整条件。

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