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

改一下代码

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