[求助]如何设置显示滚动抽签分组？ - 专家坐堂 - 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)

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