Foxtable(狐表)用户栏目专家坐堂 → 数据平均问题


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

主题:数据平均问题

帅哥,在线噢!
有点蓝
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105467 积分:536320 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/8/16 11:00:00 [只看该作者]

tb5.sort="性别,分班成绩 desc"
Dim bjnxs As List(Of String) = tb10.DataTable.GetValues("班级类型")
For Each bjnx  As String In bjnxs
    Dim bjlist As New List(Of String) = tb10.DataTable.GetValues("班级","班级类型='" & bjnx & "'")
    tb5.Filter="班级类型='" & bjnx & "'"
    Dim cnt As Integer =tb5.Rows.count
    Dim bs As Integer = bjlist.Count
    For i As Integer = 0 To cnt - 1 Step bs '8个一组
        Dim lst2 As New List(Of String) 
        lst2.addrange(bjlist)
        Dim n As Integer = Math.Min(i + bs-1, cnt - 1)
        For j As Integer = i To n
            Dim k As Integer = Rand.Next(0, lst2.count)
            tb5.Rows(j)("预分班")= lst2(k)
            lst2.RemoveAt(k)
        Next
    Next   
Next
tb5.Filter=""

 回到顶部
总数 21 上一页 1 2 3