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

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

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

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