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

从表中随机抽取行通用代码：

Dim s As String =  CurrentTable.DataTable.GetComboListString("_Identify")
Dim Values() As String
Values = s.Split("|")
Dim n As Integer = Math.Min(Values.Length - 1,3)  '调整此行代码括号内最后一个参数为您需要的任意行数,不足三行时全选
Dim idf,Filter As String
Filter = "|"
Do While n > 0
    idf = Values(Rand.Next(Values.Length - 1))
    If Filter.Contains("_Identify = " & idf) = False
        Filter = Filter & " or _Identify = " & idf
        n = n-1
    End If
    Filter = Filter.Replace("| or ","")
Loop
CurrentTable.Filter = Filter

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

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(",") & ")"

顶，现在这样效率高多了！