帮我指点一下，我想增加“学期”列，代码怎样写？谢谢！

Dim dic As new Dictionary(of String,Integer)
DataTables("教师任课得分").DataRows.Clear()
For Each dr1 As DataRow In DataTables("科目分值").DataRows
    For Each dr2 As DataRow In DataTables("教师任课").Select("[学期] = \'" & dr1("学期") & "\' and [段别] =\'" & dr1("段别") & "\'")
        Dim nm As String = dr2("学期"，“教师姓名”)
        Dim vl As Integer = dr1("语文课时分值") * dr2("语文课时")+dr1("数学课时分值") * dr2("数学课时")+dr1("英语课时分值") * dr2("英语课时")
        If dic.ContainsKey(nm) = False
            dic.Add(nm,vl)
        Else
            dic(nm) = dic(nm)+ vl
        End If
    Next
Next
For Each key As String In dic.keys
    Dim dr As DataRow = DataTables("教师任课得分").AddNew()
    dr("学期","教师姓名") = key
    dr("低段得分") = dic(key)
Next

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

点击浏览该文件:管理项目3.zip

Dim dic As new Dictionary(of String,Integer)
DataTables("教师任课得分").DataRows.Clear()
For Each dr1 As DataRow In DataTables("科目分值").DataRows
For Each dr2 As DataRow In DataTables("教师任课").Select("[学期] = \'" & dr1("学期") & "\' and [段别] =\'" & dr1("段别") & "\'")
Dim nm As String = dr2("学期","教师姓名")
Dim vl As Integer = dr1("语文课时分值") * dr2("语文课时")+dr1("数学课时分值") * dr2("数学课时")+dr1("英语课时分值") * dr2("英语课时")
If dic.ContainsKey(nm) = False
dic.Add(nm,vl)
Else
dic(nm) = dic(nm)+ vl
End If
Next
Next
For Each key As String In dic.keys
Dim dr As DataRow = DataTables("教师任课得分").AddNew()
dr("学期") = "学期"
dr("教师姓名") = "老师"
dr("低段得分") = dic(key)
Next

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

点击浏览该文件:管理项目3.zip