[求助]如何设置显示滚动抽签分组？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'A市

Dim bjs As List(Of String) = DataTables("基础表").GetValues("主考官_面试室号", "A市考官_姓名 is not null")

Dim drs As List(Of DataRow) = DataTables("基础表").Select("A市考官_姓名 is not null")

For n As Integer = 0 To drs.count - 1

Dim a As String = bjs(rand.Next(0, bjs.Count))

drs(n)("A市考官_面试室号") = a

bjs.Remove(a)

'B市

bjs = DataTables("基础表").GetValues("主考官_面试室号", "B市考官_姓名 is not null")

drs = DataTables("基础表").Select("B市考官_姓名 is not null")

For n As Integer = 0 To drs.count - 1

Dim a As String = bjs(rand.Next(0, bjs.Count))

drs(n)("B市考官_面试室号") = a

bjs.Remove(a)

有点蓝，太感谢了，好用极了，谢谢谢谢

有点蓝老师，出现如下错误，请你指导。

附件：

此主题相关图片如下：截图06.jpg

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错

有点蓝老师，出现“索引超出范围，必须为非负值并小于集合大小”的错误，找到地方了，是在计时器代码中，当F市和G市考官中没有名字时（有时一个面试室只需5人，而不是七人），这样的话就出现了“索引超出范围，必须为非负值并小于集合大小”的错误。如何修改代码，请指导。

附代码：Dim dt As DataTable = DataTables("基础表")

Dim drs As List(of String) = dt.getvalues("主考官_姓名","主考官_姓名 is not null")

e.form.controls("textbox1").text = drs(Rand.Next(0,drs.count))

drs = dt.getvalues("A市考官_姓名","A市考官_姓名 is not null")

e.form.controls("textbox2").text = drs(Rand.Next(0,drs.count))

drs = dt.getvalues("B市考官_姓名","B市考官_姓名 is not null")

e.form.controls("textbox3").text = drs(Rand.Next(0,drs.count))

drs = dt.getvalues("C市考官_姓名","C市考官_姓名 is not null")

e.form.controls("textbox4").text = drs(Rand.Next(0,drs.count))

drs = dt.getvalues("D市考官_姓名","D市考官_姓名 is not null")

e.form.controls("textbox5").text = drs(Rand.Next(0,drs.count))

drs = dt.getvalues("E市考官_姓名","E市考官_姓名 is not null")

e.form.controls("textbox6").text = drs(Rand.Next(0,drs.count))

drs = dt.getvalues("F市考官_姓名","F市考官_姓名 is not null")

e.form.controls("textbox7").text = drs(Rand.Next(0,drs.count))

drs =dt.getvalues("G市考官_姓名","G市考官_姓名 is not null")

e.form.controls("textbox8").text = drs(Rand.Next(0,drs.count))

Application.DoEvents()

[此贴子已经被作者于2023/4/27 16:28:29编辑过]

drs = dt.getvalues("F市考官_姓名","F市考官_姓名 is not null")

if drs.count > 0

e.form.controls("textbox7").text = drs(Rand.Next(0,drs.count))

end if

主题：[求助]如何设置显示滚动抽签分组？