主题：[求助]怎么随机抽取数据？

Dim ilist As new List(of Integer)

Do While ilist.count < 5

    Dim i As Integer = Rand.Next(0,Tables("表A").Rows.count-1)

    If ilist.Contains(i)=False Then

          ilist.Add(i)

    End If

Loop

For Each i As Integer In ilist

  output.show(Tables("表A").Rows(i)("第二列"))

Next

Dim c As Integer

Dim ilist As new List(of Integer)

Do While c < 2000

    Dim i As Integer = Rand.Next(0,DataTables("新区").dataRows.count-1)

    If ilist.Contains(DataTables("新区").dataRows(i)("_Identify"))=False AndAlso (c+DataTables("新区").dataRows(i)("套数"))<2050 Then

          ilist.Add(DataTables("新区").dataRows(i)("_Identify"))

          c= c+DataTables("新区").dataRows(i)("套数")

    End If

Loop

Dim ids As String

For Each i As Integer In ilist

   ids = ids & "," & i

Next

Tables("新区").Filter="_Identify in (" & ids.trim(",") & ")"

MessageBox.show("抽选后的套数为: " & Tables("新区").Compute("sum(套数)"))