更新2014版本吧.
或者把如下代码复制到 按钮Click事件中,或者放到命令窗口去执行
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(套数)"))