主题：帮我指点一下

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

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

 

此主题相关图片如下：qq截图20130419093402.png

是的，要分低段得分、中段得分、高段的分

谢谢