主题：[求助]

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

放到你的按钮中， 最后再加上一行： MainTable = Tables("抽样数据")

或命令窗口也可。

这个应该可以了吧：

DataTables("抽样数据").datarows.clear()
Tables("基础数据").Filter = "[序列号] is not null"
Dim 非空行数 As Integer = Tables("基础数据").Rows.Count
Dim n0 As Integer =0
Dim 抽样行数 As Integer = 非空行数 * (CDbl(Forms("窗口1").Controls("TextBox1").value) / 100 )
Tables("抽样数据").addnew(抽样行数)
Do While DataTables("抽样数据").Select("序列号 is null").count > 0
    Dim drs As List(Of DataRow) = DataTables("抽样数据").Select("序列号 is null")
    For Each dr As DataRow In drs
        Dim 随机数 As Integer = Rand.Next(1,非空行数)
        If Tables("抽样数据").FindRow(" 序列号 = " & 随机数 ,0,True) = -1 Then
            dr("序列号") = 随机数
        End If
    Next
Loop
DataTables("抽样数据").save()

这些都不是你自己项目中的表名、列名、还有你定义的变量吗？ 哪句不明白呢？

呵呵，没注意3楼不是你的项目啊。 

1、 程序中的“基础数据”和“抽样数据”是指 ：  指的是两个表的名称

2、点击杂项中的命令窗口->输入上面的命令：    这样可以的，但是窗口中文本框中（因程序中没有判断）必须输入数字。

3、你可以打开3楼的项目，在：项目管理 ＝》窗口管理＝》设计 ＝》查看按钮中的代码···