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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何设置显示滚动抽签分组？

共有4340人关注过本帖树形打印复制链接主题：[求助]如何设置显示滚动抽签分组？

有点蓝

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/26 16:37:00 [显示全部帖子]

'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)

有点蓝

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/26 17:12:00 [显示全部帖子]

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

有点蓝

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/27 16:32:00 [显示全部帖子]

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

总数 14 上一页 1 2

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