帮我指点一下 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帮我指点一下

共有5700人关注过本帖树形打印复制链接主题：帮我指点一下

良才

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：776 积分：6205 威望：0 精华：0 注册：2012/6/11 17:21:00

帮我指点一下 发帖心情

Post By：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编辑过]

muhua	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/4/19 8:10:00 [只看该作者] 用户已被锁定

良才

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：776 积分：6205 威望：0 精华：0 注册：2012/6/11 17:21:00

请指点，谢谢 发帖心情

Post By：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