以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  帮我指点一下  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31665)

--  作者:良才
--  发布时间:2013/4/18 20:51:00
--  帮我指点一下

帮我指点一下,我想增加“学期”列,代码怎样写?谢谢!

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

[此贴子已经被作者于2013-4-19 9:30:01编辑过]

--  作者:良才
--  发布时间:2013/4/19 9:32:00
--  请指点,谢谢

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
图片点击可在新窗口打开查看
[此贴子已经被作者于2013-4-19 9:36:19编辑过]

--  作者:Bin
--  发布时间:2013/4/19 9:42:00
--  
是否是想这样?
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20130419094112.png
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table



--  作者:良才
--  发布时间:2013/4/19 10:04:00
--  
是的,要分低段得分、中段得分、高段的分
--  作者:良才
--  发布时间:2013/4/19 14:34:00
--  
谢谢