只复制排序后前10行的数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 只复制排序后前10行的数据

共有2461人关注过本帖树形打印复制链接主题：只复制排序后前10行的数据

蓝蚂蚁

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：676 积分：7958 威望：0 精华：0 注册：2016/6/11 11:10:00

只复制排序后前10行的数据 发帖心情

Post By：2018/5/9 9:29:00 [显示全部帖子]

我有一个表【窗口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() '填充数据

End If

但发现是把【窗口1_Table1】所有的数据都复制到表2，请问老师，正确的代码如何编写。谢谢

蓝蚂蚁

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：676 积分：7958 威望：0 精华：0 注册：2016/6/11 11:10:00

Post By：2018/5/9 10:37:00 [显示全部帖子]

提示错误，看不懂是什么意思？是两个表的数据类型的问题吗？

重载决策失败，因为没有 Public“Item”可以用这些参数调用:

'Public Property Item(Col As Integer) As System.Object':

与参数“Col”匹配的参数无法从“String()”转换为“Integer”。

'Public Property Item(Column As Foxtable.Col) As System.Object':

与参数“Column”匹配的参数无法从“String()”转换为“Col”。

'Public Property Item(ColumnName As String) As System.Object':

与参数“ColumnName”匹配的参数无法从“String()”转换为“String”。

主题：只复制排序后前10行的数据