如何将数据库表中特定职位的候选人数据展示到对应ComboBox？

原代码存在的核心问题 #

• SQL语法错误：查询语句中Position = President未给字符串值加单引号，数据库会将President识别为列名而非字符串常量，导致查询失败。
• 事件逻辑颠倒：用SelectedIndexChanged事件加载数据是错误的——这个事件是下拉框选项改变时触发，应该在窗体加载（Form_Load）时初始化加载候选人数据。
• 缺少数据源绑定：仅设置了DisplayMember和ValueMember，但未将DataTable赋值给prescombo.DataSource，下拉框无法显示数据。
• 索引越界风险：直接访问datable.Rows(3)，若查询结果不足4条会抛出索引越界异常；且已通过SQL筛选President，无需再判断行的Position值。
• 空异常捕获：Catch块未做任何错误处理，无法排查运行时异常。

修正后的代码（以加载President候选人为例） #

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    LoadCandidatesToComboBox("President", prescombo)
    LoadCandidatesToComboBox("VPresident", ComboBox2) ' 同理加载VPresident到第二个下拉框
End Sub

' 封装通用加载方法，避免重复代码
Private Sub LoadCandidatesToComboBox(position As String, targetCombo As ComboBox)
    Try
        ' 修正SQL语句，使用参数化查询避免注入风险
        Dim query As String = "SELECT CandidateID, CandidateName FROM Candidates WHERE Position = @Position"
        Using con As SqlConnection = New SqlConnection("Data Source=EXPOOKY;Initial Catalog=SchoolDB;Integrated Security=True")
            Using cmd As SqlCommand = New SqlCommand(query, con)
                cmd.Parameters.AddWithValue("@Position", position)
                
                Dim datapter As SqlDataAdapter = New SqlDataAdapter(cmd)
                Dim datable As DataTable = New DataTable()
                datapter.Fill(datable)
                
                ' 绑定数据源并设置显示/值成员
                targetCombo.DisplayMember = "CandidateName"
                targetCombo.ValueMember = "CandidateID"
                targetCombo.DataSource = datable
                
                ' 可选：设置默认选中第一项
                If datable.Rows.Count > 0 Then
                    targetCombo.SelectedIndex = 0
                End If
            End Using
        End Using
    Catch ex As Exception
        ' 添加错误提示，方便排查问题
        MessageBox.Show($"加载候选人失败：{ex.Message}", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub

额外优化说明 #

• 使用参数化查询替代字符串拼接，既解决了单引号问题，又避免SQL注入风险。
• 封装通用方法LoadCandidatesToComboBox，可快速扩展到其他职位的下拉框，减少代码冗余。
• 在窗体加载事件中初始化所有下拉框数据，符合需求的初始化逻辑。

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