Question

我似乎无法弄清楚所选索引无效的原因。我需要让ComboBox索引从第一个项目移动到最后一个项目。关键是我需要执行这个功能＆＃34; loadtrainer2（）＆＃34;到ComboBox中的所有项目

这是我的代码：

While READER.Read
    Dim count as integer

    id = READER.GetInt32("emp_id")
    count = count + 1

    ComboBox1.Items.Add(id)
    ComboBox1.Text = ComboBox1.SelectedItem = 1
End While

If count >= 1 Then
    loadtrainer2()
End If

Answer 1

在发表一些评论后，我已经确定发布答案会更容易。

我会考虑使用DataTable来代替。类似的东西：

Dim dt As New DataTable
dt.Load(cmd.ExecuteReader)

如果您想在ComboBox中显示值，请相应地指定属性：

ComboBox1.DataSource = dt
ComboBox1.DisplayMemeber = "emp_name" 'This is a guess on the column name
ComboBox1.ValueMember = "emp_id"

如果您不想显示值，那么您不需要ComboBox而只需使用DataTable代码。

然后，您可以循环浏览READER：

，而不是使用DataTable

For Each row As DataRow In dt.Rows
    loadtrainer2(CInt(row("emp_id")))
Next

您需要更改loadtrainer2方法以接受参数id：

Private Sub loadtrainer2 (ByVal id As Integer)

End Sub

如何使用变量选择ComboBox项？

1 个答案: