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

哪位老师帮忙看看，有个排班表，每天随机抽取2名司机值班，填充到出车记录单表中的“值班司机1”和“值班司机2”中，代码应该怎么写啊？

排班表

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

参考代码

 

Dim w = "星期一"
Dim s = "赵大,钱二,孙三,李四"
Dim ary = s.split(",")
Dim n = 2
Dim ls As new List(Of String)
Do While ls.count < n
    Dim i = Rand.Next(0, ary.length)
    output.show(i)
    If ls.Contains(ary(i)) = False Then
        ls.add(ary(i))
        msgbox(ary(i))
    End If
Loop

每天的司机是固定的，就是每天从4个司机中随机抽取2个司机出车，

 

参考3楼代码，不会做，请上传具体foxtable项目。

 

 

甜老师，请指导指导，我现在想实现的是出车单中输入日期后，能自动从值班表中随机选择两人添加到出车单中，代码应该怎么写？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:多值字段随机抽取.table

Dim weeks() As String = {"星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六"}

If e.DataCol.name = "出车日期" Then '如果更改的日期列
    If e.DataRow.IsNull("出车日期") Then '日期是否为空
        e.DataRow("出车组别") = Nothing '如果为空,则清除星期
        e.DataRow("出车司机_1_姓名") = Nothing
        e.DataRow("出车司机_2_姓名") = Nothing
    Else '否则计算星期几
        e.DataRow("出车组别") = weeks(e.newvalue.dayofweek)
        Dim w = weeks(e.newvalue.dayofweek)
        Dim fdr As DataRow = DataTables("值班表").find("组别='" & w & "'")
        Dim s = fdr("值班司机")
        Dim ary = s.split(",")
        Dim n = 2
        If ary.length >= n Then
            Dim ls As new List(Of String)
            Do While ls.count < n
                Dim i = Rand.Next(0, ary.length)
                If ls.Contains(s) = False Then
                    ls.add(ary(i))
                End If
            Loop
            e.DataRow("出车司机_1_姓名") = ls(0)
            e.DataRow("出车司机_2_姓名") = ls(1)
        End If
    End If
End If

谢谢老师指导！

甜老师，你提供的那段代码有时候随机抽取的两个司机是同一个人，如何修改才能做到每天随机抽到的两个司机不为同一个人