DataTables("抽样数据").DeleteFor("[序列号] is not null")
Tables("基础数据").Filter = "[序列号] is not null"
Dim 非空行数 As Integer = Tables("基础数据").Rows.Count
Dim 随机数 As Integer
Dim 抽样行数 As Integer = 非空行数 * (CDbl(Forms("窗口1").Controls("TextBox1").value) / 100 )
Tables("抽样数据").addnew(抽样行数)
For i As Integer = 0 To 抽样行数 -1
Tables("抽样数据")(i,"序列号") = Rand.Next(1,非空行数)
Next