主题：代码应该如何修改

林老师：以下“确认”按钮代码出错，请帮忙修改。谢了！

 

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

组合框名字错了吧  你不会双击添加组合框吗 . 这种错误就不会存在了.

 肯定是你组合框的名称属性不是combobox1

谢谢指导，应该是ComoBox1

代码有错误，请帮忙修改。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:表a到表b.rar

此主题相关图片如下：截图27.jpg

Dim l As WinForm.TextBox = e.Form.Controls("ComdoBox1")    ‘将"TextBox1"改为"ComdoBox1"后出错

 

 

ComdoBox1 是 ComboBox1

 头部这样写，类型需要对应哦。

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")

通过。谢谢林老师！