Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dr As DataRow = DataTables("课程").Find("课程id = '" & cm.Text & "'")
If dr IsNot Nothing Then
e.Form.Controls("TextBox1").Value = dr("序号")
e.Form.Controls("textbox2").Value = dr("校区")
e.Form.Controls("textbox3").value = dr("班级")
e.Form.Controls("textbox5").value = dr("课程")
e.Form.Controls("TextBox6").value = dr("老师ID")
End If
[此贴子已经被作者于2016/11/14 12:42:22编辑过]
加好友 
发短信
Post By：2016/11/14 12:42:00 [显示全部帖子]
