Public Class Question
Property QuestionID As Integer
Property QuestionText As String
Public Sub New(q_ID As Integer, q_Text As String)
QuestionID = q_ID
QuestionText = q_Text
End Sub
End Class
cmbQuestion.DisplayMember = "QuestionID"
cmbQuestion.ValueMember = "QuestionID"
cmbQuestion.DataSource = retrieveQuestions()
602392714
清零编程群