主题：ListBox1同时显示两列值

Dim lst As WinForm.ListBox = Forms("学生调班").Controls("ListBox1")

lst.ComboList= DataTables("基本信息_Table1").GetComboListString("学生编号","班级 = '"& lst.SelectedIndex &"'")

怎样改代码同时显示学生编号和学生姓名，如下图

 

此主题相关图片如下：qq截图20161103085429.png

请指教，谢谢！

 Dim Arys As List(Of String())
Dim mystr As String
Arys = DataTables("表A").GetValues("第一列|第二列") '列名用符号|分割
Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
For Each Ary As String() In Arys
    mystr = Ary(0) & "-" & Ary(1)
    lst.Items.Add(mystr)
Next

谢谢！

有可能有重复学生姓名，只能加上学生姓名，如果该学生缴费项目中学费班级改变了，缴费项目中餐费班级也跟着改变，请指点，谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:学生调班.zip

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:学生调班.foxdb

谢谢！

If e.Form.Controls("原班级").Value Is Nothing Then
    MessageBox.Show("请选择 [原班级]")
Else
    If e.Form.Controls("新班级").Value Is Nothing Then
        MessageBox.Show("请选择 [调入班级]")
    Else
        Dim lbx1 As WinForm.ListBox = e.Form.Controls("ListBox1")
        Dim lbx2 As WinForm.ListBox = e.Form.Controls("ListBox2")
        If e.Form.Controls("ListBox1").SelectedIndex <= 0 Then    ‘没有选

            MessageBox.Show("请选择 [学生]")   

        Else
            lbx2.Items.Add(lbx1.SelectedValue)
            lbx1.items.RemoveAt(lbx1.SelectedIndex)
        End If
    End If
End If

 

请指教，谢谢

 If e.Form.Controls("ListBox1").SelectedIndex < 0 Then

谢谢！

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)