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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]初学者求助！！！

共有1761人关注过本帖树形打印复制链接主题：[求助]初学者求助！！！

tswxdts

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：49 积分：341 威望：0 精华：0 注册：2016/10/19 18:12:00

[求助]初学者求助！！！ 发帖心情

Post By：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”。

弄了好久，不知道这是怎么回事呀！？

只有求助各位老师们了！

有点青

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：49 积分：341 威望：0 精华：0 注册：2016/10/19 18:12:00

Post By：2016/11/14 12:56:00 [只看该作者]

非常感谢有点青老师，看了你的代码，知道问题那了！

下一主题 >> << 上一主题

主题：[求助]初学者求助！！！