主题：如何避免随机数重复

For i As Integer = 0 To 7

    Dim ids As String

    Dim lst As new List(of String)

    Dim cnt As Integer = DataTables("订单客户列表").DataRows.Count

    Do

        Dim Id As Integer = rand.Next(0,cnt)

        id = DataTables("订单客户列表").DataRows(id)("_Identify")

        If lst.Contains(id) =False Then

            lst.Add(id)

            Output.Show(id - 2)

        End If

        ids = ids & id & ","

    Loop While lst.count < 10   '10是要抽取的行数

    Tables("订单客户列表").Filter = "[_Identify] In (" & ids.Trim(",") & ")"

    MessageBox.Show("下一轮")

    Output.Show("下一轮")

Next