Foxtable(狐表)用户栏目专家坐堂 → 总分统计问题


  共有4370人关注过本帖树形打印复制链接

主题:总分统计问题

帅哥哟,离线,有人找我吗?
aygp
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:693 积分:5206 威望:0 精华:0 注册:2011/3/15 12:34:00
总分统计问题  发帖心情 Post By:2014/2/2 16:31:00 [显示全部帖子]

狐友们新年快乐!

在运动会比赛项目中,有男子组项目、女子组项目,还有混合组项目,即男女运动员共同参加比赛的项目。在分别统计男子组得分和女子组得分时,要把混合组的分数一分为二后分别加在男子组和女子组中。例如管理系男子组共得7分,女子组共得10分,混合组得5分,那么管理系男子总分应该为9.5分,管理系女子总分应该为12.5分。

请问以下代码应该如何修改才可以把混合组的分数分别加在男子组和女子组的总分中。

 

 

Dim dt As DataTable = DataTables("学生男子组总分")

Dim dt_source As DataTable = DataTables("比赛得分")

dt.DataRows.Clear

Dim dws As List(Of String) = dt_source.GetUniqueValues("组别 = '男子组'", "单位")

For Each dw As String In dws

    Dim ndr As DataRow = dt.AddNew

    ndr("单位") = dw

    ndr("总分") = dt_source.Compute("sum(得分)", "组别 = '男子组' and 单位 = '" & dw & "'")

Next

 

 

Dim drs As List(Of DataRow) = dt.Select("", "总分 desc")

drs(0)("名次") = 1

For i As Integer = 1 To drs.Count - 1

    If drs(i)("总分") = drs(i-1)("总分") Then

        drs(i)("名次") = drs(i-1)("名次")

    Else

        drs(i)("名次") = i+1

    End If

Next

 

Tables("学生男子组总分").Sort = "名次"

 

 

Dim dr As DataTable = DataTables("学生女子组总分")

Dim dr_source As DataTable = DataTables("比赛得分")

dr.DataRows.Clear

Dim dwt As List(Of String) = dr_source.GetUniqueValues("组别 = '女子组'", "单位")

For Each dw As String In dwt

    Dim ndn As DataRow = dr.AddNew

    ndn("单位") = dw

    ndn("总分") = dr_source.Compute("sum(得分)", "组别 = '女子组' and 单位 = '" & dw & "'")

Next

 

 

Dim drt As List(Of DataRow) = dr.Select("", "总分 desc")

drt(0)("名次") = 1

For i As Integer = 1 To drt.Count - 1

    If drt(i)("总分") = drt(i-1)("总分") Then

        drt(i)("名次") = drt(i-1)("名次")

    Else

        drt(i)("名次") = i+1

    End If

Next

 

Tables("学生女子组总分").Sort = "名次"


 回到顶部
帅哥哟,离线,有人找我吗?
aygp
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:693 积分:5206 威望:0 精华:0 注册:2011/3/15 12:34:00
  发帖心情 Post By:2014/2/2 18:06:00 [显示全部帖子]

 上传例子

 回到顶部
帅哥哟,离线,有人找我吗?
aygp
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:693 积分:5206 威望:0 精华:0 注册:2011/3/15 12:34:00
  发帖心情 Post By:2014/2/2 18:07:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:总分统计.rar


 回到顶部
帅哥哟,离线,有人找我吗?
aygp
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:693 积分:5206 威望:0 精华:0 注册:2011/3/15 12:34:00
  发帖心情 Post By:2014/2/2 23:03:00 [显示全部帖子]

装了开发版的电脑装不了试用版

 回到顶部
帅哥哟,离线,有人找我吗?
aygp
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:693 积分:5206 威望:0 精华:0 注册:2011/3/15 12:34:00
  发帖心情 Post By:2014/2/3 11:04:00 [显示全部帖子]

上传商业版

 回到顶部
帅哥哟,离线,有人找我吗?
aygp
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:693 积分:5206 威望:0 精华:0 注册:2011/3/15 12:34:00
  发帖心情 Post By:2014/2/3 11:05:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:总分统计(商业版).rar


 回到顶部
帅哥哟,离线,有人找我吗?
aygp
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:693 积分:5206 威望:0 精华:0 注册:2011/3/15 12:34:00
  发帖心情 Post By:2014/2/3 22:21:00 [显示全部帖子]

y2287958老师:总分统计完后,还要进行排序,如图:
图片点击可在新窗口打开查看此主题相关图片如下:截图02.png
图片点击可在新窗口打开查看    请修改代码,谢了!

 回到顶部
帅哥哟,离线,有人找我吗?
aygp
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:693 积分:5206 威望:0 精华:0 注册:2011/3/15 12:34:00
  发帖心情 Post By:2014/2/3 23:19:00 [显示全部帖子]

y2287958老师:经测试,把“名次”列和“得分”列数据清空后,再无法得到相关数据,即代码没有执行。

 回到顶部
帅哥哟,离线,有人找我吗?
aygp
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:693 积分:5206 威望:0 精华:0 注册:2011/3/15 12:34:00
  发帖心情 Post By:2014/2/4 10:51:00 [显示全部帖子]

y2287958老师:经测试,把“名次”列和“得分”列数据清空后,再无法得到相关数据,即代码没有执行,请帮忙试一试。
如果有名次数据,排序就可以了。

 回到顶部
帅哥哟,离线,有人找我吗?
aygp
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:693 积分:5206 威望:0 精华:0 注册:2011/3/15 12:34:00
  发帖心情 Post By:2014/2/4 15:17:00 [显示全部帖子]

可以了。谢谢y2287958老师!

 回到顶部
总数 14 1 2 下一页