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


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

主题：汇总统计问题
帅哥哟，离线，有人找我吗？
刘林
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2017/1/18 21:32:00 [只看该作者]

DataTables("师表").loadfilter = ""
DataTables("师表").load
Dim g As New sqlGroupTableBuilder("统计表1","小生表")
Dim dt1 As Table = Tables("期末_table6")
g.C
g.Groups.AddDef("考试名称")
g.Groups.AddDef("学校")
g.Groups.AddDef("年级")
g.Groups.AddDef("类别")
g.Groups.AddDef("学校班级")
g.Totals.AddDef("姓名",AggregateEnum.Count,"参考数")
g.Totals.AddDef("语文",AggregateEnum.Average,"语文_人平")
g.Totals.AddDef("数学",AggregateEnum.Average,"数学_人平")
g.Totals.AddDef("英语",AggregateEnum.Average,"英语_人平")
g.Totals.AddDef("政治",AggregateEnum.Average,"政治_人平")
g.Totals.AddDef("历史",AggregateEnum.Average,"历史_人平")
g.Totals.AddDef("物理",AggregateEnum.Average,"物理_人平")
g.Totals.AddDef("化学",AggregateEnum.Average,"化学_人平")
g.Totals.AddDef("生物",AggregateEnum.Average,"生物_人平")
g.Totals.AddDef("地理",AggregateEnum.Average,"地理_人平")
g.Totals.AddDef("总分",AggregateEnum.Average,"总分_人平")
g.Totals.AddDef("语文",AggregateEnum.sum,"语总")
g.Totals.AddDef("数学",AggregateEnum.sum,"数总")
g.Totals.AddDef("英语",AggregateEnum.sum,"英总")
g.Totals.AddDef("政治",AggregateEnum.sum,"政总")
g.Totals.AddDef("历史",AggregateEnum.sum,"历总")
g.Totals.AddDef("生物",AggregateEnum.sum,"生总")
g.Totals.AddDef("地理",AggregateEnum.sum,"地总")
g.Totals.AddDef("物理",AggregateEnum.sum,"物总")
g.Totals.AddDef("化学",AggregateEnum.sum,"化总")
g.Totals.AddDef("总分",AggregateEnum.sum,"总分")

g.Totals.AddExp("语文_优数", "case when convert(int,年级)<7 and 语文>=85 then 1 when convert(int,年级)>=7 and 语文>=80 then 1 else 0 end")
g.Totals.AddExp("数学_优数", "case when convert(int,年级)<7 and 数学>=85 then 1 when convert(int,年级)>=7 and 数学>=80 then 1 else 0 end")
g.Totals.AddExp("英语_优数", "case when convert(int,年级)>=7 and 英语>=80 then 1 else 0 end")
g.Totals.AddExp("政治_优数", "case when convert(int,年级)>=7 and 政治>=80 then 1 else 0 end")
g.Totals.AddExp("历史_优数", "case when convert(int,年级)>=7 and 历史>=80 then 1 else 0 end")
g.Totals.AddExp("生物_优数", "case when convert(int,年级)>=7 and 生物>=80 then 1 else 0 end")
g.Totals.AddExp("地理_优数", "case when convert(int,年级)>=7 and 地理>=80 then 1 else 0 end")
g.Totals.AddExp("物理_优数", "case when convert(int,年级)>=8 and 物理>=80 then 1 else 0 end")
g.Totals.AddExp("化学_优数", "case when convert(int,年级)>=9 and 化学>=80 then 1 else 0 end")
g.Totals.AddExp("语文_及数", "case when 语文>=60 then 1 else 0 end")
g.Totals.AddExp("数学_及数", "case when 数学>=60 then 1 else 0 end")
g.Totals.AddExp("英语_及数", "case when 英语>=60 then 1 else 0 end")
g.Totals.AddExp("政治_及数", "case when 政治>=60 then 1 else 0 end")
g.Totals.AddExp("历史_及数", "case when 历史>=60 then 1 else 0 end")
g.Totals.AddExp("生物_及数", "case when 生物>=60 then 1 else 0 end")
g.Totals.AddExp("地理_及数", "case when 地理>=60 then 1 else 0 end")
g.Totals.AddExp("物理_及数", "case when 物理>=60 then 1 else 0 end")
g.Totals.AddExp("化学_及数", "case when 化学>=60 then 1 else 0 end")
dt1.DataSource = g.BuildDataSource()

dt1.DataTable.DataCols.Add("语文_教师",Gettype(String))
dt1.DataTable.DataCols.Add("数学_教师",Gettype(String))
dt1.DataTable.DataCols.Add("英语_教师",Gettype(String))
dt1.DataTable.DataCols.Add("政治_教师",Gettype(String))
dt1.DataTable.DataCols.Add("历史_教师",Gettype(String))
dt1.DataTable.DataCols.Add("物理_教师",Gettype(String))
dt1.DataTable.DataCols.Add("化学_教师",Gettype(String))
dt1.DataTable.DataCols.Add("生物_教师",Gettype(String))
dt1.DataTable.DataCols.Add("地理_教师",Gettype(String))
dt1.DataTable.DataCols.Add("汇总标识",Gettype(String))
dt1.DataTable.DataCols.Add("语文_优秀率",Gettype(Double),"语文_优数 / 参考数")
dt1.DataTable.DataCols.Add("数学_优秀率",Gettype(Double),"数学_优数 / 参考数")
dt1.DataTable.DataCols.Add("英语_优秀率",Gettype(Double),"iif(年级 in ('7','8','9'), 英语_优数 / 参考数, null)")
dt1.DataTable.DataCols.Add("政治_优秀率",Gettype(Double),"iif(年级 in ('7','8','9'), 政治_优数 / 参考数, null)")
dt1.DataTable.DataCols.Add("历史_优秀率",Gettype(Double),"iif(年级 in ('7','8','9'), 历史_优数 / 参考数, null)")
dt1.DataTable.DataCols.Add("生物_优秀率",Gettype(Double),"iif(年级 in ('7','8'), 生物_优数 / 参考数, null)")
dt1.DataTable.DataCols.Add("地理_优秀率",Gettype(Double),"iif(年级 in ('7','8'), 地理_优数 / 参考数, null)")
dt1.DataTable.DataCols.Add("物理_优秀率",Gettype(Double),"iif(年级 in ('8','9'), 物理_优数 / 参考数, null)")
dt1.DataTable.DataCols.Add("化学_优秀率",Gettype(Double),"iif(年级 in ('9'), 化学_优数 / 参考数, null)")
dt1.DataTable.DataCols.Add("语文_及格率",Gettype(Double),"语文_及数 / 参考数")
dt1.DataTable.DataCols.Add("数学_及格率",Gettype(Double),"数学_及数 / 参考数")
dt1.DataTable.DataCols.Add("英语_及格率",Gettype(Double),"iif(年级 in ('7','8','9'), 英语_及数 / 参考数, null)")
dt1.DataTable.DataCols.Add("政治_及格率",Gettype(Double),"iif(年级 in ('7','8','9'), 政治_及数 / 参考数, null)")
dt1.DataTable.DataCols.Add("历史_及格率",Gettype(Double),"iif(年级 in ('7','8','9'), 历史_及数 / 参考数, null)")
dt1.DataTable.DataCols.Add("生物_及格率",Gettype(Double),"iif(年级 in ('7','8'), 生物_及数 / 参考数, null)")
dt1.DataTable.DataCols.Add("地理_及格率",Gettype(Double),"iif(年级 in ('7','8'), 地理_及数 / 参考数,null)")
dt1.DataTable.DataCols.Add("物理_及格率",Gettype(Double),"iif(年级 in ('8','9'), 物理_及数 / 参考数, null)")
dt1.DataTable.DataCols.Add("化学_及格率",Gettype(Double),"iif(年级 in ('9'), 化学_及数 / 参考数, null)")

dt1.DataTable.DataCols("语文_优秀率").SetFormat("#0.0%")
dt1.DataTable.DataCols("数学_优秀率").SetFormat("#0.0%")
dt1.DataTable.DataCols("英语_优秀率").SetFormat("#0.0%")
dt1.DataTable.DataCols("政治_优秀率").SetFormat("#0.0%")
dt1.DataTable.DataCols("历史_优秀率").SetFormat("#0.0%")
dt1.DataTable.DataCols("物理_优秀率").SetFormat("#0.0%")
dt1.DataTable.DataCols("化学_优秀率").SetFormat("#0.0%")
dt1.DataTable.DataCols("生物_优秀率").SetFormat("#0.0%")
dt1.DataTable.DataCols("地理_优秀率").SetFormat("#0.0%")

dt1.DataTable.DataCols("语文_及格率").SetFormat("#0.0%")
dt1.DataTable.DataCols("数学_及格率").SetFormat("#0.0%")
dt1.DataTable.DataCols("英语_及格率").SetFormat("#0.0%")
dt1.DataTable.DataCols("政治_及格率").SetFormat("#0.0%")
dt1.DataTable.DataCols("历史_及格率").SetFormat("#0.0%")
dt1.DataTable.DataCols("物理_及格率").SetFormat("#0.0%")
dt1.DataTable.DataCols("化学_及格率").SetFormat("#0.0%")
dt1.DataTable.DataCols("生物_及格率").SetFormat("#0.0%")
dt1.DataTable.DataCols("地理_及格率").SetFormat("#0.0%")

dt1.DataTable.DataCols.Add("语文_优类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("数学_优类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("英语_优类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("政治_优类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("历史_优类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("生物_优类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("地理_优类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("物理_优类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("化学_优类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("总分_类序",Gettype(Integer))

dt1.DataTable.DataCols.Add("语文_及类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("数学_及类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("英语_及类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("政治_及类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("历史_及类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("生物_及类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("地理_及类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("物理_及类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("化学_及类序",Gettype(Integer))

dt1.DataTable.DataCols.Add("语文_人平类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("数学_人平类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("英语_人平类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("政治_人平类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("历史_人平类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("生物_人平类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("地理_人平类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("物理_人平类序",Gettype(Integer))
dt1.DataTable.DataCols.Add("化学_人平类序",Gettype(Integer))



dt1.DataTable.DataCols.Add("语文_优区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("数学_优区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("英语_优区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("政治_优区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("历史_优区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("生物_优区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("地理_优区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("物理_优区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("化学_优区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("总分_区序",Gettype(Integer))

dt1.DataTable.DataCols.Add("语文_及区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("数学_及区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("英语_及区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("政治_及区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("历史_及区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("生物_及区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("地理_及区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("物理_及区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("化学_及区序",Gettype(Integer))

dt1.DataTable.DataCols.Add("语文_人平区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("数学_人平区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("英语_人平区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("政治_人平区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("历史_人平区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("生物_人平区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("地理_人平区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("物理_人平区序",Gettype(Integer))
dt1.DataTable.DataCols.Add("化学_人平区序",Gettype(Integer))

'dt1.DataTable.DataCols.Add("语文_总分",Gettype(Double),"语文_人平 * 参考数")











Dim ds As DataRow
For Each r As Row In Tables("期末_table6").Rows
    ds = DataTables("师表").Find("考试名称 = '" & r("考试名称") & "'and 学校班级 = '" & r("学校班级") & "'" )
    If ds IsNot Nothing
        r("语文_教师")= ds("语文教师")
        r("数学_教师")= ds("数学教师")
        r("英语_教师")= ds("英语教师")
        r("政治_教师")= ds("政治教师")
        r("历史_教师")= ds("历史教师")
        r("物理_教师")= ds("物理教师")
        r("化学_教师")= ds("化学教师")
        r("生物_教师")= ds("生物教师")
        r("地理_教师")= ds("地理教师")
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2017/1/18 21:34:00 [只看该作者]



Dim dt As Table  = Tables("期末_table6")
Dim Arys As List(Of String())  = dt.DataTable.GetValues("年级|类别")
''各科优秀率
For Each Ary As String() In Arys
    Dim drs As List(Of DataRow) = dt.DataTable.Select("[年级] = '" & ary(0) & "'And [类别] = '" & ary(1) & "'", "语文_优秀率 DESC")
    For n As Integer = 0 To drs.Count - 1 '遍历所有行
        If n > 0 AndAlso drs(n)("语文_优秀率") = drs(n-1)("语文_优秀率") Then '如果总分和上一行相同
            drs(n)("语文_优类序") = drs(n-1)("语文_优类序") '则排名等于上一行
        Else
            drs(n)("语文_优类序") = n + 1 '设置排名
        End If
    Next
Next
For Each Ary As String() In Arys
    Dim drs As List(Of DataRow) = dt.DataTable.Select("[年级] = '" & ary(0) & "'And [类别] = '" & ary(1) & "'", "数学_优秀率 DESC")
    For n As Integer = 0 To drs.Count - 1 '遍历所有行
        If n > 0 AndAlso drs(n)("数学_优秀率") = drs(n-1)("数学_优秀率") Then '如果总分和上一行相同
            drs(n)("数学_优类序") = drs(n-1)("数学_优类序") '则排名等于上一行
        Else
            drs(n)("数学_优类序") = n + 1 '设置排名
        End If
    Next
Next

For Each Ary As String() In Arys
    If val(ary(0)) > 6
        Dim drs As List(Of DataRow) = dt.DataTable.Select("[年级] = '" & ary(0) & "'And [类别] = '" & ary(1) & "'", "英语_优秀率 DESC")
        For n As Integer = 0 To drs.Count - 1 '遍历所有行
            If n > 0 AndAlso drs(n)("英语_优秀率") = drs(n-1)("英语_优秀率") Then '如果总分和上一行相同
                drs(n)("英语_优类序") = drs(n-1)("英语_优类序") '则排名等于上一行
            Else
                drs(n)("英语_优类序") = n + 1 '设置排名
            End If
        Next
    End If
Next

For Each Ary As String() In Arys
    If val(ary(0)) > 6
        Dim drs As List(Of DataRow) = dt.DataTable.Select("[年级] = '" & ary(0) & "'And [类别] = '" & ary(1) & "'", "政治_优秀率 DESC")
        For n As Integer = 0 To drs.Count - 1 '遍历所有行
            If n > 0 AndAlso drs(n)("政治_优秀率") = drs(n-1)("政治_优秀率") Then '如果总分和上一行相同
                drs(n)("政治_优类序") = drs(n-1)("政治_优类序") '则排名等于上一行
            Else
                drs(n)("政治_优类序") = n + 1 '设置排名
            End If
        Next
    End If
Next

For Each Ary As String() In Arys
    If val(ary(0)) > 6
        Dim drs As List(Of DataRow) = dt.DataTable.Select("[年级] = '" & ary(0) & "'And [类别] = '" & ary(1) & "'", "历史_优秀率 DESC")
        For n As Integer = 0 To drs.Count - 1 '遍历所有行
            If n > 0 AndAlso drs(n)("历史_优秀率") = drs(n-1)("历史_优秀率") Then '如果总分和上一行相同
                drs(n)("历史_优类序") = drs(n-1)("历史_优类序") '则排名等于上一行
            Else
                drs(n)("历史_优类序") = n + 1 '设置排名
            End If
        Next
    End If
Next

For Each Ary As String() In Arys
    If val(ary(0)) > 7
        Dim drs As List(Of DataRow) = dt.DataTable.Select("[年级] = '" & ary(0) & "'And [类别] = '" & ary(1) & "'", "物理_优秀率 DESC")
        For n As Integer = 0 To drs.Count - 1 '遍历所有行
            If n > 0 AndAlso drs(n)("物理_优秀率") = drs(n-1)("物理_优秀率") Then '如果总分和上一行相同
                drs(n)("物理_优类序") = drs(n-1)("物理_优类序") '则排名等于上一行
            Else
                drs(n)("物理_优类序") = n + 1 '设置排名
            End If
        Next
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2017/1/18 21:36:00 [只看该作者]


For Each Ary As String() In Arys
    If val(ary(0)) > 8
        Dim drs As List(Of DataRow) = dt.DataTable.Select("[年级] = '" & ary(0) & "'And [类别] = '" & ary(1) & "'", "化学_优秀率 DESC")
        For n As Integer = 0 To drs.Count - 1 '遍历所有行
            If n > 0 AndAlso drs(n)("化学_优秀率") = drs(n-1)("化学_优秀率") Then '如果总分和上一行相同
                drs(n)("化学_优类序") = drs(n-1)("化学_优类序") '则排名等于上一行
            Else
                drs(n)("化学_优类序") = n + 1 '设置排名
            End If
        Next
    End If
Next

For Each Ary As String() In Arys
    If val(ary(0)) = 7 Or val(ary(0)) = 8
        Dim drs As List(Of DataRow) = dt.DataTable.Select("[年级] = '" & ary(0) & "'And [类别] = '" & ary(1) & "'", "生物_优秀率 DESC")
        For n As Integer = 0 To drs.Count - 1 '遍历所有行
            If n > 0 AndAlso drs(n)("生物_优秀率") = drs(n-1)("生物_优秀率") Then '如果总分和上一行相同
                drs(n)("生物_优类序") = drs(n-1)("生物_优类序") '则排名等于上一行
            Else
                drs(n)("生物_优类序") = n + 1 '设置排名
            End If
        Next
    End If
Next

For Each Ary As String() In Arys
    If val(ary(0)) = 7 Or val(ary(0)) = 8
        Dim drs As List(Of DataRow) =dt.DataTable.Select("[年级] = '" & ary(0) & "'And [类别] = '" & ary(1) & "'", "地理_优秀率 DESC")
        For n As Integer = 0 To drs.Count - 1 '遍历所有行
            If n > 0 AndAlso drs(n)("地理_优秀率") = drs(n-1)("地理_优秀率") Then '如果总分和上一行相同
                drs(n)("地理_优类序") = drs(n-1)("地理_优类序") '则排名等于上一行
            Else
                drs(n)("地理_优类序") = n + 1 '设置排名
            End If
        Next
    End If
Next






''各科及格率

For Each Ary As String() In Arys
    Dim drs As List(Of DataRow) = dt.DataTable.Select("[年级] = '" & ary(0) & "'And [类别] = '" & ary(1) & "'", "语文_及格率 DESC")
    For n As Integer = 0 To drs.Count - 1 '遍历所有行
        If n > 0 AndAlso drs(n)("语文_及格率") = drs(n-1)("语文_及格率") Then '如果总分和上一行相同
            drs(n)("语文_及类序") = drs(n-1)("语文_及类序") '则排名等于上一行
        Else
            drs(n)("语文_及类序") = n + 1 '设置排名
        End If
    Next
Next
For Each Ary As String() In Arys
    Dim drs As List(Of DataRow) = dt.DataTable.Select("[年级] = '" & ary(0) & "'And [类别] = '" & ary(1) & "'", "数学_及格率 DESC")
    For n As Integer = 0 To drs.Count - 1 '遍历所有行
        If n > 0 AndAlso drs(n)("数学_及格率") = drs(n-1)("数学_及格率") Then '如果总分和上一行相同
            drs(n)("数学_及类序") = drs(n-1)("数学_及类序") '则排名等于上一行
        Else
            drs(n)("数学_及类序") = n + 1 '设置排名
        End If
    Next
Next

For Each Ary As String() In Arys
    If val(ary(0)) > 6
        Dim drs As List(Of DataRow) = dt.DataTable.Select("[年级] = '" & ary(0) & "'And [类别] = '" & ary(1) & "'", "英语_及格率 DESC")
        For n As Integer = 0 To drs.Count - 1 '遍历所有行
            If n > 0 AndAlso drs(n)("英语_及格率") = drs(n-1)("英语_及格率") Then '如果总分和上一行相同
                drs(n)("英语_及类序") = drs(n-1)("英语_及类序") '则排名等于上一行
            Else
                drs(n)("英语_及类序") = n + 1 '设置排名
            End If
        Next
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2017/1/18 21:37:00 [只看该作者]


For Each Ary As String() In Arys
    If val(ary(0)) > 6
        Dim drs As List(Of DataRow) =dt.DataTable.Select("[年级] = '" & ary(0) & "'And [类别] = '" & ary(1) & "'", "政治_及格率 DESC")
        For n As Integer = 0 To drs.Count - 1 '遍历所有行
            If n > 0 AndAlso drs(n)("政治_及格率") = drs(n-1)("政治_及格率") Then '如果总分和上一行相同
                drs(n)("政治_及类序") = drs(n-1)("政治_及类序") '则排名等于上一行
            Else
                drs(n)("政治_及类序") = n + 1 '设置排名
            End If
        Next
    End If
Next

For Each Ary As String() In Arys
    If val(ary(0)) > 6
        Dim drs As List(Of DataRow) = dt.DataTable.Select("[年级] = '" & ary(0) & "'And [类别] = '" & ary(1) & "'", "历史_及格率 DESC")
        For n As Integer = 0 To drs.Count - 1 '遍历所有行
            If n > 0 AndAlso drs(n)("历史_及格率") = drs(n-1)("历史_及格率") Then '如果总分和上一行相同
                drs(n)("历史_及类序") = drs(n-1)("历史_及类序") '则排名等于上一行
            Else
                drs(n)("历史_及类序") = n + 1 '设置排名
            End If
        Next
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/1/19 0:18:00 [只看该作者]

上面几楼想说明什么问题？

 回到顶部
总数 25 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询