vb2008 从组合框选定项中检索值并显示到多个文本框

Question

我想问一下如何获取组合框的选定值，然后将其显示到多个文本框。组合框填充了数据库中的疾病。现在，当从组合框中选择一种疾病时，该疾病的症状应该显示在许多文本框中。目前我有 10 个用于症状的文本框。表结构是 id、disease、symbols。这是我的代码：

Dim mycmd As New MySqlCommand
Dim dtr As MySqlDataReader
Call Connect()
        Dim str As String
        str = "Select symptoms from diagnose where illness = @ill"
        mycmd.Parameters.AddWithValue("ill", cmbRecord.Text)
        mycmd.CommandText = str
        dtr = mycmd.ExecuteReader
        While dtr.Read()
            symp0.Text = dtr("symptoms")
            symp1.Text = dtr("symptoms")
            symp2.Text = dtr("symptoms")
            symp3.Text = dtr("symptoms")
            symp4.Text = dtr("symptoms")
            symp5.Text = dtr("symptoms")
            symp6.Text = dtr("symptoms")
            symp7.Text = dtr("symptoms")
            symp8.Text = dtr("symptoms")
            symp9.Text = dtr("symptoms")
        End While
myConn.Close()

当从组合框中选择疾病时，症状应显示在这些文本框中。假设所选疾病在表格中只有 4 个症状，那么symp0 到 symp3 文本框将一一显示症状，其余文本框留空。

The problem is that when an illness is selected, those textboxes displays only the last symptom of that illness stored in the database.

例如：发烧。在表中，它有4个症状：感冒、发热、头痛、头晕。如果选择发烧，则从symp0 到symp9 文本框只显示头晕。

Answer 1

dtr("symptoms") 从当前行获取列 "symptoms" 的值。在分配给文本框 #1 到 #10 之间，您不会将阅读器推进到下一行，这就是您在所有文本框中看到相同值的原因。

现在回答您的问题，为什么它是所有文本框中的最后一个症状。通过使用dtr.Read() 循环遍历行，您每次都重新分配文本框的值，并且直到最后一个被分配。此时不会进行后续分配，因此最后一个值保留在屏幕上。

你要找的可能是这样的：

Dim symptoms As New List(Of String)
While dtr.Read()
  symptoms.Add(dtr("symptoms"))     
End While

'set available symptoms
Dim arrayOfTextboxes() As TextBox = {symp0, ... put all textboxes here..., symp9}
Dim i As Integer = 0
For i = 0 To symptoms.Count - 1
  arrayOfTextboxes(i).Text = symptoms(i)
Next

'clear other textboxes
For j = i to UBound(arrayOfTextboxes)
  arrayOfTextboxes(j).Text = String.Empty
Next

这是假设您要显示的症状少于 10 个。对于任意数量的症状，您可以通过将DataSource 设置为symptoms 来使用ListBox。您的代码变得更加紧凑：

Dim symptoms As New List(Of String)
While dtr.Read()
  symptoms.Add(dtr("symptoms"))     
End While
YourListBoxWithSymptoms.DataSource = symptoms