Foxtable(狐表)用户栏目专家坐堂 → [求助]尾考室不大于5人,则加到上一考室,如何处理?


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

主题:[求助]尾考室不大于5人,则加到上一考室,如何处理?

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/16 15:45:00 [显示全部帖子]

考场号的最大值可以在一开始就使用compute查出来
至于座位号 <= 5这个看不出来,请上传实例测试

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/16 17:21:00 [显示全部帖子]

使用文字说明一下排位规则

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/17 11:32:00 [显示全部帖子]

试试
……
Tables("成绩库").Sort = "姓名"
For Each Value As String In Values
    For Each xuanke As String In xuankes
        For Each danwei As String In DataTables("成绩库").GetValues("单位", " ")
            For Each nianji As String In DataTables("成绩库").GetValues("年级","单位 = '" & danwei & "'" )
                For Each zuhe As String In DataTables("成绩库").GetValues("组合","年级 = '" & nianji & "'" )
                    Dim tj As String = value & "排序"
                    'Dim tj5 As String = "序号"
                    Dim drs As List(Of DataRow) = DataTables("成绩库").Select("[年级] = '" & nianji & "'And [单位] = '" & danwei & "'", "" & value & "")
Dim idx As Integer = 1
                    For n As Integer = 0 To drs.Count - 1 Step 40 '遍历所有行
Dim idx2 As Integer = 1
                        For k As Integer = n To math.min(n+39,drs.Count - 1)
                            drs(k)(tj) = k + 1 '设置排序
                            drs(k)("考场号") = idx
                            drs(k)("座位号") = idx2
                            idx2 += 1
                        Next
If n+44 >= drs.Count - 1 Then
                        For k As Integer = n+40 To drs.Count - 1
                            drs(k)(tj) = k + 1 '设置排序
                            drs(k)("考场号") = idx
                            drs(k)("座位号") = idx2
                            idx2 += 1
                        Next
exit for
End If
idx + =1
                    Next
                    Dim tj1 As String = xuanke & "排序"
                    Dim tj2 As String = xuanke & "考场号"
                    Dim tj3 As String = xuanke & "座位号"
……

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/18 20:28:00 [显示全部帖子]

组合这个列是干嘛用的

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/19 11:01:00 [显示全部帖子]

组合和排位有什么关系?

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/19 13:45:00 [显示全部帖子]

那就把这个循环去掉

For Each zuhe As String In DataTables("成绩库").GetValues("组合","年级 = '" & nianji & "'" )

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/19 14:10:00 [显示全部帖子]

下面这个循环是干嘛用的?如果和排位没有关系也去掉

For Each xuanke As String In xuankes

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/19 14:45:00 [显示全部帖子]

这段代码和排位又有什么关系?如果是不同的功能,就分开,分别循环处理,不要混到一起

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/19 15:12:00 [显示全部帖子]

新行的代码是这个:Dim dr As DataRow = DataTables("成绩库").AddNew

自己排查代码,是否需要每个单位的每个年级的每个xuankes都新增一行?新增的行数=单位数 X 单位年级数 X xuankes长度

For Each Value As String In Values
    For Each danwei As String In DataTables("成绩库").GetValues("单位", " ")
        For Each nianji As String In DataTables("成绩库").GetValues("年级","单位 = '" & danwei & "'" )
……
            For Each xuanke As String In xuankes
                Dim tj1 As String = xuanke & "排序"
                Dim tj2 As String = xuanke & "考场号"
                Dim tj3 As String = xuanke & "座位号"
                Dim dr As DataRow = DataTables("成绩库").AddNew

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/21 16:53:00 [显示全部帖子]

代码没有问题,前提是考场号已经全部生成了

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