主题：代码应该如何修改

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

 

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