VB.NET ComboBox手动设置与数据库加载问题：仅显示数据库值

嘿，我之前在VB.NET里折腾ComboBox的时候也碰到过一模一样的问题！大概率是你处理手动添加项和数据库加载数据的方式或者顺序不对，咱们来一步步解决：

如果你是用ComboBox.DataSource来绑定数据库数据的，那直接调用Items.Add()是不会生效的——因为一旦设置了DataSource，ComboBox的Items集合就会被数据源接管，手动添加的项会被忽略。

解决办法是先把手动项和数据库数据合并成一个集合，再绑定到DataSource：

Private Sub delivery_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' 1. 从数据库获取数据（这里用List示例，你可以换成DataTable或自定义对象集合）
    Dim dbDeliveryItems As New List(Of String)()
    ' 假设这里是你的数据库查询逻辑，比如用SqlDataReader填充集合
    ' 示例：dbDeliveryItems.AddRange(从数据库读取的配送方式数组)

    ' 2. 添加你需要的手动项，比如默认提示项
    dbDeliveryItems.Insert(0, "请选择配送方式") ' 把手动项插入到集合开头

    ' 3. 绑定合并后的集合到ComboBox
    ComboBox1.DataSource = dbDeliveryItems
    ' 如果是自定义对象，这里要指定DisplayMember，比如"DeliveryName"
    ' ComboBox1.DisplayMember = "DeliveryName"
End Sub

要是你直接用Items.Add()来添加项，那可能是代码顺序错了，或者数据库加载时不小心清空了Items：

错误示例（手动项被清空）： #

Private Sub delivery_Load(...) Handles MyBase.Load
    ' 先加手动项
    ComboBox1.Items.Add("自提")
    ' 数据库加载时清空了所有项，手动项没了
    ComboBox1.Items.Clear()
    ' 再加数据库项
    ComboBox1.Items.AddRange(GetDbDeliveryItems())
End Sub

正确顺序： #

Private Sub delivery_Load(...) Handles MyBase.Load
    ' 先清空（如果需要重置）
    ComboBox1.Items.Clear()

    ' 第一步：添加手动项
    ComboBox1.Items.Add("自提")
    ComboBox1.Items.Add("加急配送")

    ' 第二步：添加数据库加载的项
    Dim dbItems As String() = GetDbDeliveryItems() ' 自定义方法获取数据库数据
    ComboBox1.Items.AddRange(dbItems)
End Sub

• 打个断点，确认手动添加项的代码真的执行到了——有时候可能事件绑定出问题，或者窗体加载逻辑有分支跳过了这段代码。
• 检查ComboBox的DropDownStyle属性：如果设为DropDownList，是正常显示所有项的；如果是DropDown，也不会影响Items显示，只是允许用户输入而已。

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