我有一个表【窗口1_Table1】按：Tables("窗口1_Table1").sort="总数量 DESC" 排序后 通过代码复制前10行到【表2】，复制的代码如下：
If MessageBox.Show("是否复制数据?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then
For i As Integer = 0 To 9
Dim f As New Filler
f.SourceTable = Tables("窗口1_Table1") '指定数据来源
f.SourceCols = "名称,厂家,计价单位,总数量,总金额" '指定数据来源列
f.DataTable = DataTables("表2") '指定数据接收表
f.DataCols = "名称,厂家,计价单位,数量，金额" '指定数据接收列
f.ExcludeExistValue = True
f.Distinct =True
f.Fill() '填充数据
Next
End If
但发现是把【窗口1_Table1】所有的数据都复制到表2，请问老师，正确的代码如何编写。谢谢
加好友 
发短信
Post By：2018/5/9 9:29:00 [只看该作者]
