主题：ListBox1同时显示两列值

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Sel ect  班级,b.学生编号,学生姓名 From {基本信息} a Inner JOIN {缴费信息} b ON a.学生编号 = b.学生编号"
dt = cmd.ExecuteReader()
Dim Arys As List(Of String())
Dim mystr As String
Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
Arys = dt.GetValues("学生编号|学生姓名","班级 = '" & e.Sender.Text & "'") '列名用符号|分割
For Each Ary As String() In Arys
    mystr = Ary(0) & "-" & Ary(1)
    lst.Items.Add(mystr)

谢谢