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