加载保存的Naam后如何触发ComboBox的SelectedIndexChanged事件

我有一个名为Afzender的ComboBox，在FormLoad事件中从Sqlite数据库加载大量条目，这部分运行正常。当从ComboBox中选择名称时，会通过SelectedIndexChanged事件根据选中的Naam从数据库获取数据并填充多个TextBox，此功能也正常。

现在的问题是：保存选中的Naam并再次加载后，Naam已显示在Afzender中，但ComboBox不会触发SelectedIndexChanged事件。我不想保存TextBox内容，仅保存选中的Naam。尝试过使用Afzender.Validating，是否需要改用其他方法？

相关代码：

Private Sub Afzender_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Afzender.SelectedIndexChanged
    Try
        cmd = New SqlCeCommand("Select Adres, Postcode, Plaats, Land FROM Ontvanger Where Naam = @Naam", con2)

        If con2.State = ConnectionState.Closed Then con2.Open()
        cmd.Parameters.Add("@Naam", SqlDbType.NVarChar).Value = Afzender.Text
        Dim sdr As SqlCeDataReader = cmd.ExecuteReader()
        While sdr.Read = True
            Afzenderadres.Text = sdr.Item("Adres")
            Afzenderpostcode.Text = sdr.Item("Postcode")
            Afzenderplaats.Text = sdr.Item("Plaats")
            Afzenderland.Text = sdr.Item("Land")

        End While
        sdr.Close()
        con2.Close()
        Afzenderplaats.Text = Afzenderpostcode.Text & " " & Afzenderplaats.Text
    Catch ex As Exception

    End Try
End Sub

有三种直接有效的方法解决该问题：

• 直接调用事件处理方法
  手动设置Afzender的选中值后，直接调用Afzender_SelectedIndexChanged方法触发逻辑：

  ' 完成Afzender选中值设置后执行
  Afzender_SelectedIndexChanged(Nothing, EventArgs.Empty)
  

• 通过设置SelectedIndex触发事件
  不要直接赋值Afzender.Text，而是查找目标Naam对应的索引并设置SelectedIndex，系统会自动触发SelectedIndexChanged事件：

  Dim targetNaam As String = "你保存的Naam值"
  Dim index As Integer = Afzender.FindStringExact(targetNaam)
  If index >= 0 Then
      Afzender.SelectedIndex = index
  End If
  

  这种方式更符合ComboBox的原生交互逻辑，避免手动调用事件的生硬感。

• 重构逻辑到独立方法（推荐）
  将填充TextBox的核心逻辑抽离为独立方法，无论用户选择还是加载保存值时都能直接调用，代码更易维护：

  Private Sub LoadAfzenderData(naam As String)
      Try
          Using con2 As New SqlCeConnection("你的数据库连接字符串")
              con2.Open()
              Using cmd As New SqlCeCommand("Select Adres, Postcode, Plaats, Land FROM Ontvanger Where Naam = @Naam", con2)
                  cmd.Parameters.Add("@Naam", SqlDbType.NVarChar).Value = naam
                  Using sdr As SqlCeDataReader = cmd.ExecuteReader()
                      If sdr.Read() Then
                          Afzenderadres.Text = sdr.Item("Adres").ToString()
                          Afzenderpostcode.Text = sdr.Item("Postcode").ToString()
                          Afzenderplaats.Text = sdr.Item("Plaats").ToString()
                          Afzenderland.Text = sdr.Item("Land").ToString()
                          Afzenderplaats.Text = Afzenderpostcode.Text & " " & Afzenderplaats.Text
                      End If
                  End Using
              End Using
          End Using
      Catch ex As Exception
          ' 建议添加错误提示或日志，避免空捕获隐藏问题
          MessageBox.Show("加载数据出错：" & ex.Message)
      End Try
  End Sub
  

  然后修改原事件处理方法调用该逻辑：

  Private Sub Afzender_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Afzender.SelectedIndexChanged
      LoadAfzenderData(Afzender.Text)
  End Sub
  

  加载保存的Naam时直接调用：

  LoadAfzenderData("你保存的Naam值")
  

注意：原代码中的空Catch块会隐藏错误，建议添加错误处理逻辑；使用Using语句可自动释放数据库资源，避免内存泄漏。

内容的提问来源于Stack Exchange，提问作者Bas H