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

参考代码

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

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

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

改一下代码

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(ary(i)) = 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