主题：监考排考

各位大侠，早上好！小可有来向大家请教了。问题有二：

1、当输入了考室数量后，单击排考室按钮后发现有些行是空白的，如图

2、我想让座位号按连续顺序来排列，如：1,2,3,4等

谢谢！

此主题相关图片如下：排考.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:教学信息管理系统.table

 楼主，看了下你的代码，猜不透你代码要实现的逻辑。

 对于生成的 准考证号、考试、座位号、随机值，你是怎样计划的？比如说说 你要达到哪种需求。

准考证号的前6位是规定好的，后面4位是想设计用学生在班里的学号。应该怎么提取？一个考室计划安排30个座位，座位号从01开始一直到30.谢谢指教！

再问一下，考室、座位号 与 班级 有没有关系，还有就是 随机值 怎么取？

考室、座位号 与 班级 我没有设置关系，但是不用随机值的话该怎么让其自动产生数字？

 其实我想问的是，考室号、座位号，跟班级号有没有什么特别的关系。比如，同一班的学生，座位号不连续.....

 还有就是，最后一列随机数，是必要的吗？

 

准考证号这样生成行吗？

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table

谢谢！准考号可以了，

考室的座位号与班里的座位号没关系的，在一个考场的座位号是重新分配的。

 下面的代码应该可以，两次随机……

If Forms("排考室考号").Controls("NumericComboBox1").Value <= 0 Then
    MessageBox.Show("考室不能小等于零值!","中止操作",MessageBoxButtons.OK,MessageBoxIcon.Exclamation)
Else
    DataTables("排考室考号").DataRows.Clear()
    Dim f As New Filler
    f.SourceTable = DataTables("成绩表")
    f.SourceCols = "班级,姓名,学号"
    f.DataTable = DataTables("排考室考号")
    f.DataCols = "班级,姓名,准考证号"
    f.ExcludeExistValue = True
    f.Fill  

    For Each r As Row In CurrentTable.Rows
        r("随机值") = Rand.Next(10000)
    Next
    CurrentTable.Sort = "随机值"

    Dim rooms As Integer = e.Form.Controls("NumericComboBox1").Value
    For Each r As Row In CurrentTable.Rows
        r("准考证号") = "078309" & r("准考证号")
        r("考室") = Format(Rand.Next(rooms) + 1, "00")
        Dim seat = CurrentTable.Compute("Max(座位号)", "考室 = '" & r("考室") & "'") + 1
        r("座位号") = Format(seat, "000")
    Next
    CurrentTable.Sort = "考室, 座位号"
End If