将数组ID添加到标签文本和列表框VB.NET

Question

自从接触VB以来已经快一年了，但是我在本学期的第一次作业中遇到了一个问题，应该重新学习。 我应该做的是制作一个应用程序，该应用程序按文本框输入学生的姓名，地址，GPA，年龄，按广播电台输入的年份（新人，大二，其他），以及按复选框输入班级。

填写完毕后，我需要获取该信息并将其预览在label.text中。 如果看起来正确，我需要将textbox.text信息串联到一个列表框中。 无论我尝试执行什么操作，要么在预览中显示String.Array（），要么程序在第57行崩溃，我们将不胜感激。

Public Class Form1
'CIS259 Spring 2014 Matthew McQuarrie

'Declare Student Data as a String of 9 arrays
Dim StudentData(8) As String

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
    'Close application
    Me.Close()
End Sub

Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
    'Clear entire form
    txtName.Clear()
    txtAddress.Clear()
    txtGPA.Clear()
    txtAge.Clear()
    radFreshman.Checked = False
    radSophomore.Checked = False
    radOther.Checked = False
    chkCIS.Checked = False
    chkMath.Checked = False
    chkScience.Checked = False
    chkHistory.Checked = False
    lblPreview.Text = ""
End Sub
Public Sub btnPreview_Click(sender As Object, e As EventArgs) Handles btnPreview.Click

    StudentData(0) = txtName.Text
    StudentData(1) = txtAddress.Text
    StudentData(2) = txtGPA.Text
    StudentData(3) = txtAge.Text

    'Find which radio button is checked to add to StudentData
    If radFreshman.Checked = True Then
        StudentData(4) = "Freshman"
    ElseIf radSophomore.Checked = True Then
        StudentData(4) = "Sophomore"
    ElseIf radOther.Checked = True Then
        StudentData(4) = "Other"
    End If

    'Find which check boxes are checked to add to StudentData
    If chkCIS.Checked = True Then
        StudentData(5) = "CIS"
        If chkMath.Checked = True Then
            StudentData(6) = "Math"
            If chkScience.Checked = True Then
                StudentData(7) = "Science"
                If chkHistory.Checked = True Then
                    StudentData(8) = "History"
                End If
            End If
        End If
    End If
    'Show StudentData ino the text of lblPreview
    lblPreview.Text = StudentData(0 & 1 & 2 & 3 & 4 & 5 & 6 & 7 & 8)
End Sub

Private Sub btnStudent_Click(sender As Object, e As EventArgs) Handles btnStudent.Click

    'Add StudentData elements to Student list
    lstStudents.Items.Add(StudentData(0 & 1 & 2 & 3))

End Sub
End Class

Answer 1

也许我在这里使用的这种方法可以有所帮助，但是有一些区别。

我的源是数据库。我将数据库中的字段（源）连接起来，并且只显示文本，而不显示列表框displaymember上的id。 您可以将ID从源文件连接到文本字段，并显示已联系的全字符串。

'create the adapter
    Dim adapterU As New OleDb.OleDbDataAdapter("Select id,nombre+' '+apellido as fullname from users", con)

    'create a datatable
    Dim datatableU As New DataTable

    'bring the info from the adapter (database) into the datatable.
    adapterU.Fill(datatableU)

    'relate the datasource (datable) to the listbox lsUsers 
    lsUsers.DataSource = datatableU
    lsUsers.ValueMember = "id"
    lsUsers.DisplayMember = "fullname"