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

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

专家好，想制作一个考官抽签分组系统，有一个基础表，包括序号，主考官，A市，B市……G市等七个市的考官，每个面试室七个人，在基础表中，如果某个市的考官选为主考官，则该市的考官名单中有一个空格，保证每个面试室7人，且七个市的考官只有1人。目标是：在抽签系统中，点击“开始”，在上边的抽取主考官，抽取考官一……。抽取考官六下边的文本框中显示人员滚动，按下“停”按钮后，生成下表的人员抽取名单，需注意的是：如果某市有主考官，要想保证每个面试室7人，且七个市的考官只有1人的情况下，其他市的考官补充到生成表中的考官一到考官六中。关键是如果让人员在分别在主考官，考官一……考官六的文本框中滚动，有一种动态感。代码如何写，请专家指导。谢谢，如下图：

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

另外，基础表有多少组，在抽签系统中就有多少面试室号

可以利用窗口计时事件+随机函数，动态给文本框赋值

计时器事件

dim t as table = tables("表A")

e.form.controls("textbox1").text = t.rows(Rand.Next(0,t.rows.count))("考官1")

e.form.controls("textbox2").text = t.rows(Rand.Next(0,t.rows.count))("考官2")

Application.DoEvents()

有点蓝，如果有空格，不让它滚动显示出来，可以吗，只显示有名字的

[此贴子已经被作者于2023/4/25 10:41:15编辑过]

dim dt as datatable = datatables("表A")

dim drs as list(of string) = dt.getvalues("考官1","考官1 is not null")

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

drs = dt.getvalues("考官2","考官2 is not null")

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

有点蓝老师好，抽取面试考官号遇到了问题，问题是：通过下述代码先生成主考官的面试室号，这此主考官分别是从不同市的考官中选出来，选出来后，每个市的列会出现空单元格，当抽取主考官面试室号后，再抽取A市、B市……的考官面试室号，在抽取A市、B市……的考官面试室号时，需排除主考官的面试室号，然后在剩余的A市、B市……的考官中抽取面试室号，保证每个考官只能选一个面试室号。下述代码如何更改，先举例主考官的抽取代码和A市考官抽取代码。谢谢

附件：1.表

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

2.生成主考官代码（这个没有问题）

Dim dt As Table = Tables("窗口1_table1")

Dim cnt As Integer = dt.Rows.Count

Dim ids(cnt -1) As Integer

For i As Integer = 0 To cnt -1

ids(i) = i

For i As Integer = 0 To cnt \ 2 '洗牌次数

Dim id1 As Integer = rand.Next(0,cnt)

Dim id2 As Integer = rand.Next(0,cnt)

Dim vid As Integer = ids(id1)

ids(id1) = ids(id2)

ids(id2) = vid

dt.StopRedraw()

For i As Integer = 0 To Tables("窗口1_table1").Rows.count -1

Tables("窗口1_table1").Rows(i)("主考官_面试室号")=ids(i)+1

dt.ResumeRedraw()

3.生成A市考官代码

Dim dt1 As Table = Tables("窗口1_table1")

Dim cnt1 As Integer = dt1.Rows.Count

Dim ids1(cnt1 -1) As Integer

For ii As Integer = 0 To cnt1 -1

ids1(ii) = ii

For ii As Integer = 0 To cnt1 \ 2 '洗牌次数

Dim id3 As Integer = rand.Next(0,cnt1)

Dim id4 As Integer = rand.Next(0,cnt1)

Dim vid As Integer = ids(id3)

ids1(id3) = ids1(id4)

ids1(id3) = vid

dt.StopRedraw()

For i As Integer = 0 To Tables("窗口1_table1").Rows.count -1

If Tables("窗口1_table1").Rows(i)("A市考官_姓名")= Nothing Then

Tables("窗口1_table1").Rows(i)("A市考官_面试室号")=Tables("窗口1_table1").Rows(i)("主考官_面试室号")

Else

Tables("窗口1_table1").Rows(i)("A市考官_面试室号")=ids1(i)+1

End If

dt.ResumeRedraw()

参考5楼方式，改为使用select方法：http://www.foxtable.com/webhelp/topics/0400.htm，添加条件，只获取没有用过的面试室进行分配

有点蓝老师。如何排除主考官已用过的面试室号，谢谢

Dim drs As List(Of DataRow)
drs = DataTables("表A").Select("面试室号 not in('" & DataTables("表B").GetComboListString("面试室号").replace("|","','") & "')")

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