帮我指点一下,我想增加“学期”列,代码怎样写?谢谢!
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
[此贴子已经被作者于2013-4-19 9:30:01编辑过]