主题：[求助]怎样从表格中随机抽取几行

随机抽取少量行的标准代码：

Dim ids As String
Dim lst As new List(of String)
Dim cnt As Integer = DataTables("表A").DataRows.Count
Do
    Dim Id As Integer = rand.Next(0,cnt)
    id = DataTables("表A").DataRows(id)("_Identify")
    If lst.Contains(id) =False Then
        lst.Add(id)
    End If
    ids = ids & id & ","
Loop While lst.count < 5   '5是要抽取的行数
Tables("表A").Filter = "[_Identify] In (" & ids.Trim(",") & ")"