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


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

主题：[求助]尾考室不大于5人，则加到上一考室，如何处理？
帅哥哟，离线，有人找我吗？
cqlpjks
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：3194 威望：0 精华：0 注册：2011/2/28 11:57:00 		[求助]尾考室不大于5人，则加到上一考室，如何处理？  发帖心情 Post By：2021/7/16 15:15:00 [显示全部帖子]

DataTables("成绩库").StopRedraw
Dim xuankes() As String = {"化","生","政","地"}
Dim Values() As String = {"考号"}
For Each Value As String In Values
    Tables("成绩库").Cols(Value & "排序").Visible = True
Next
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 & "")
                    For n As Integer = 0 To drs.Count - 1 '遍历所有行
                        drs(n)(tj) = n + 1 '设置排序
                        drs(n)("考场号") = Math.Ceiling(drs(n)(tj)/40)
                        drs(n)("座位号") = drs(n)(tj) - (drs(n)("考场号") - 1)*40

                    if 考场号 = 考场号的最大值 and 座位号 <= 5 True
                        drs(n)("考场号") = drs(n)("考场号") + 1
                        drs(n)("座位号") = 40 + drs(n)(tj) - (drs(n)("考场号") - 1)*40
                    end if

                    Next
                    Dim tj1 As String = xuanke & "排序"
                    Dim tj2 As String = xuanke & "考场号"
                    Dim tj3 As String = xuanke & "座位号"
                    Dim tj4 As String = xuanke & "序号"
                    Dim dr As DataRow = DataTables("成绩库").AddNew
                    Dim dr1 As List(Of DataRow) = DataTables("成绩库").Select("[年级] = '" & nianji & "'And [单位] = '" & danwei & "'And [组合] Like '%" & xuanke & "%'","" & value & "")
                    For n As Integer = 0 To dr1.Count - 1 '遍历所有行
                        dr1(n)(tj1) = n + 1 '设置排序
                        dr1(n)(tj2) = Math.Ceiling(dr1(n)(tj1)/40)
                        dr1(n)(tj3) = dr1(n)(tj1) - (dr1(n)(tj2) - 1)*40
                    Next
                    Tables("成绩库").Sort = "单位代码,年级代码,组合代码,考号排序"
                    'Dim dr2 As List(Of DataRow) = DataTables("成绩库").Select("[年级] = '" & nianji & "'And [组合] Like '%" & xuanke & "%'","" & value & "")
                    'For n As Integer = 0 To dr2.Count - 1 '遍历所有行
                        'dr2(n)(tj4) = n + 1 '设置排序
                    'Next
                    'Dim dr1s As List(Of DataRow) = DataTables("成绩库").Select("[年级] = '" & nianji & "'")
                    'For n As Integer = 0 To dr1s.Count - 1 '遍历所有行
                        'dr1s(n)(tj5) = n + 1 '设置排序
                    'Next
                Next
            Next
        Next
    Next
Next

DataTables("成绩库").ResumeRedraw
e.Form.Controls("Label1").text ="考号核对结束,可以进行下一步操作!"
DataTables("成绩库").ResumeRedraw
红色字体代码如何修改？请指教。谢谢！

图片点击可在新窗口打开查看此主题相关图片如下：尾考室.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
cqlpjks
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：3194 威望：0 精华：0 注册：2011/2/28 11:57:00 		  发帖心情 Post By：2021/7/16 17:17:00 [显示全部帖子]

怎么执行代码时又增加了504行？其他代码也有点问题。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:高中考试考号考室座位号编排测试 - 副本.rar

[此贴子已经被作者于2021/7/16 17:17:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cqlpjks
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：3194 威望：0 精华：0 注册：2011/2/28 11:57:00 		  发帖心情 Post By：2021/7/16 17:35:00 [显示全部帖子]

新高考考场、考室安排：分年级、分学科、分学科，语文、数学、英语、物理/历史可以用同一考场考室，化学、生物、政治、历史都不是同一时间考，每考生只选2科。
要求：每考室40人，尾考室不超过45人。
 回到顶部
帅哥哟，离线，有人找我吗？
cqlpjks
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：3194 威望：0 精华：0 注册：2011/2/28 11:57:00 		  发帖心情 Post By：2021/7/16 20:37:00 [显示全部帖子]

                    if 考场号 = 考场号的最大值 and 座位号 <= 5 True
                        drs(n)("考场号") = drs(n)("考场号") - 1
                        drs(n)("座位号") = 40 + drs(n)(tj) - (drs(n)("考场号") - 1)*40
                    end if
 回到顶部
帅哥哟，离线，有人找我吗？
cqlpjks
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：3194 威望：0 精华：0 注册：2011/2/28 11:57:00 		  发帖心情 Post By：2021/7/17 22:21:00 [显示全部帖子]

谢谢！经测试，要求已经满足，但代码怎么执行时又增加了504行空白？不知代码哪里出了点问题？请指教。
DataTables("成绩库").StopRedraw
Dim xuankes() As String = {"化","生","政","地"}
Dim Values() As String = {"考号"}
For Each Value As String In Values
    Tables("成绩库").Cols(Value & "排序").Visible = True
Next
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 & "座位号"
                    Dim tj4 As String = xuanke & "序号"
                    Dim dr As DataRow = DataTables("成绩库").AddNew
                    Dim dr1 As List(Of DataRow) = DataTables("成绩库").Select("[年级] = '" & nianji & "'And [单位] = '" & danwei & "'And [组合] Like '%" & xuanke & "%'","" & value & "")
                    Dim idx1 As Integer = 1
                    For n As Integer = 0 To dr1.Count - 1 Step 40 '遍历所有行
                        Dim idx3 As Integer = 1
                        For k As Integer = n To math.min(n+39,dr1.Count - 1)
                            dr1(k)(tj1) = k + 1 '设置排序
                            dr1(k)(tj2) = idx1
                            dr1(k)(tj3) = idx3
                            idx3 += 1
                        Next
                        If n+44 >= dr1.Count - 1 Then
                            For k As Integer = n+40 To dr1.Count - 1
                                dr1(k)(tj1) = k + 1 '设置排序
                                dr1(k)(tj2) = idx1
                                dr1(k)(tj3) = idx3
                                idx3 += 1
                            Next
                            Exit For
                        End If
                        idx1 + =1
                    Next 
                    Tables("成绩库").Sort = "单位代码,年级代码,组合代码,考号排序"
                Next
            Next
        Next
    Next
Next

DataTables("成绩库").ResumeRedraw
e.Form.Controls("Label1").text ="考号核对结束,可以进行下一步操作!"
 回到顶部
帅哥哟，离线，有人找我吗？
cqlpjks
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：3194 威望：0 精华：0 注册：2011/2/28 11:57:00 		  发帖心情 Post By：2021/7/19 10:47:00 [显示全部帖子]

组合列是考生选科列，物理、历史是必选一科，化学、生物、政治、地理任选两科。所以就存在物生政、史化政...等12个组合。

 回到顶部
帅哥哟，离线，有人找我吗？
cqlpjks
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：3194 威望：0 精华：0 注册：2011/2/28 11:57:00 		  发帖心情 Post By：2021/7/19 12:00:00 [显示全部帖子]

组合好像不需排位，只有首选科目和选科需要排位。

 回到顶部
帅哥哟，离线，有人找我吗？
cqlpjks
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：3194 威望：0 精华：0 注册：2011/2/28 11:57:00 		  发帖心情 Post By：2021/7/19 14:08:00 [显示全部帖子]

已经去掉了，还是增加了56行空白行。

 回到顶部
帅哥哟，离线，有人找我吗？
cqlpjks
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：3194 威望：0 精华：0 注册：2011/2/28 11:57:00 		  发帖心情 Post By：2021/7/19 14:43:00 [显示全部帖子]

xuanke下面要用：选科化、生、政、地考场号和座位号编排在用。
                Dim tj1 As String = xuanke & "排序"
                Dim tj2 As String = xuanke & "考场号"
                Dim tj3 As String = xuanke & "座位号"
                'Dim tj4 As String = xuanke & "序号"
                Dim dr As DataRow = DataTables("成绩库").AddNew
                Dim dr1 As List(Of DataRow) = DataTables("成绩库").Select("[年级] = '" & nianji & "'And [单位] = '" & danwei & "'And [组合] Like '%" & xuanke & "%'","" & value & "")
                Dim idx1 As Integer = 1
                For n As Integer = 0 To dr1.Count - 1 Step 40 '遍历所有行
                    Dim idx3 As Integer = 1
                    For k As Integer = n To math.min(n+39,dr1.Count - 1)
                        dr1(k)(tj1) = k + 1 '设置排序
                        dr1(k)(tj2) = idx1
                        dr1(k)(tj3) = idx3
                        idx3 += 1
                    Next
                    If n+44 >= dr1.Count - 1 Then
                        For k As Integer = n+40 To dr1.Count - 1
                            dr1(k)(tj1) = k + 1 '设置排序
                            dr1(k)(tj2) = idx1
                            dr1(k)(tj3) = idx3
                            idx3 += 1
                        Next
                        Exit For
                    End If
                    idx1 + =1
                Next
 回到顶部
帅哥哟，离线，有人找我吗？
cqlpjks
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：3194 威望：0 精华：0 注册：2011/2/28 11:57:00 		  发帖心情 Post By：2021/7/19 15:05:00 [显示全部帖子]

这段代码移到下面去了，还是一样的。
DataTables("成绩库").StopRedraw
Dim xuankes() As String = {"化","生","政","地"}
Dim Values() As String = {"考号"}
For Each Value As String In Values
    Tables("成绩库").Cols(Value & "排序").Visible = True
Next
Tables("成绩库").Sort = "姓名"
For Each Value As String In Values
    For Each danwei As String In DataTables("成绩库").GetValues("单位", " ")
        For Each nianji As String In DataTables("成绩库").GetValues("年级","单位 = '" & danwei & "'" )
            Dim tj As String = value & "排序"
            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
            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
                Dim dr1 As List(Of DataRow) = DataTables("成绩库").Select("[年级] = '" & nianji & "'And [单位] = '" & danwei & "'And [组合] Like '%" & xuanke & "%'","" & value & "")
                Dim idx1 As Integer = 1
                For n As Integer = 0 To dr1.Count - 1 Step 40 '遍历所有行
                    Dim idx3 As Integer = 1
                    For k As Integer = n To math.min(n+39,dr1.Count - 1)
                        dr1(k)(tj1) = k + 1 '设置排序
                        dr1(k)(tj2) = idx1
                        dr1(k)(tj3) = idx3
                        idx3 += 1
                    Next
                    If n+44 >= dr1.Count - 1 Then
                        For k As Integer = n+40 To dr1.Count - 1
                            dr1(k)(tj1) = k + 1 '设置排序
                            dr1(k)(tj2) = idx1
                            dr1(k)(tj3) = idx3
                            idx3 += 1
                        Next
                        Exit For
                    End If
                    idx1 + =1
                Next
            Next
        Next
    Next
Next
Tables("成绩库").Sort = "单位代码,年级代码,组合代码,考号排序"
DataTables("成绩库").ResumeRedraw
 回到顶部
总数 18 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07813 秒, 6 次数据查询