[求助]多值字段随机抽取问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]多值字段随机抽取问题

共有2334人关注过本帖树形打印复制链接主题：[求助]多值字段随机抽取问题

y2287958

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

等级：狐神帖子：4724 积分：34374 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2019/6/9 16:16:00 [显示全部帖子]

是在当天所有司机中随机抽取吗

y2287958

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

等级：狐神帖子：4724 积分：34374 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2019/6/9 17:14:00 [显示全部帖子]

For Each dr As DataRow In DataTables("排班表").DataRows

Dim lst As new List(of String)

Dim lst1 As new List(of String)

Dim lst2 As new List(of String)

lst.AddRange(dr("值班司机").split(","))

For Each ls As String In lst

Dim s As String = lst(rand.Next(lst.Count))

If lst1.Count < 2 AndAlso lst1.Contains(s) = False

lst1.Add(s)

End If

For Each ls As String In lst

If lst1.Contains(ls) = False

lst2.Add(ls)

End If

Output.Show(String.join(",",lst1.ToArray) & "|" & String.join(",",lst2.ToArray))

主题：[求助]多值字段随机抽取问题