专家坐堂-[求助]初学者求助！！！Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]初学者求助！！！  (http://foxtable.net/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
--
非常感谢有点青老师，看了你的代码，知道问题那了！