主题：ListBox1同时显示两列值

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

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

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

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

请指教，谢谢！

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

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

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

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

请指教，谢谢