- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 代码应该如何修改 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=28938)
-- 发布时间：2013/2/23 2:34:00
-- 代码应该如何修改
林老师：以下“确认”按钮代码出错，请帮忙修改。谢了！
Dim d As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim l As WinForm.TextBox = e.Form.Controls("ComdoBox1") ‘将"TextBox1"改为"ComdoBox1"后出错
Dim m As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim nma() As String = {"院系","年级","班级","专业","姓名","贫困生","辅导员"} \'学生基本信息表数据来源列
Dim nmb() As String = {"院系","年级","班级","专业","姓名","贫困生","辅导员"} \'奖助表数据接收列
For Each r As Row In Tables("学生基本信息").rows
Dim dr As DataRow = DataTables("奖助表").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = r(nma(i))
Next
dr("奖助年月") = d.Value
dr("奖助等级") = l.Text
dr("奖助金额") = m.Text
Next
错误提示如下：
此主题相关图片如下：截图05.jpg
-- 发布时间：2013/2/23 7:24:00
--
组合框名字错了吧 你不会双击添加组合框吗 . 这种错误就不会存在了.
-- 发布时间：2013/2/23 9:10:00
--
肯定是你组合框的名称属性不是combobox1
-- 发布时间：2013/2/23 10:31:00
--
谢谢指导，应该是ComoBox1
-- 发布时间：2013/2/23 12:14:00
--
代码有错误，请帮忙修改。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:表a到表b.rar |
此主题相关图片如下：截图27.jpg
-- 发布时间：2013/2/23 12:35:00
--
Dim l As WinForm.TextBox = e.Form.Controls("ComdoBox1") ‘将"TextBox1"改为"ComdoBox1"后出错
ComdoBox1 是 ComboBox1
-- 发布时间：2013/2/23 14:30:00
--
头部这样写，类型需要对应哦。
Dim d As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim l As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim m As WinForm.ComboBox = e.Form.Controls("ComboBox2")
-- 发布时间：2013/2/23 14:46:00
--
通过。谢谢林老师！