以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]初学者求助！！！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92820)
--  作者：tswxdts
--  发布时间：2016/11/14 11:52:00
--  [求助]初学者求助！！！

在学习练习窗口中，加入一个combobox和6个textbox,给combobox动态加载了一个
Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
cmb.ComboList = DataTables("课程").GetComboListString("课程ID")
在combobox 的事件selectedindexchanged中加入
Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dr As DataRow = cm.value
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
但是在预览的时候点击combobox中的值时，提示
无法将类型为“System.String”的对象强制转换为类型“Foxtable.DataRow”。
弄了好久，不知道这是怎么回事呀！？
只有求助各位老师们了！
--  作者：有点青
--  发布时间：2016/11/14 12:42:00
--  
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编辑过]
--  作者：tswxdts
--  发布时间：2016/11/14 12:56:00
--  
非常感谢有点青老师，看了你的代码，知道问题那了！