数据合并问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据合并问题

共有3022人关注过本帖树形打印复制链接主题：数据合并问题

xiaoyongxg2

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

加好友

发短信

等级：幼狐帖子：144 积分：1107 威望：0 精华：0 注册：2014/6/1 10:22:00

数据合并问题 发帖心情

Post By：2014/9/6 13:28:00 [只看该作者]

如何将导入的数据合并在首行而不是尾行。请老师指点

有点酸

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

加好友

发短信

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：2014/9/6 22:29:00 [只看该作者]

没办法的,只能合并后排序

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/7 9:57:00 [只看该作者]

回复1楼，这样就需要编写合并的代码进行处理了。

思路是：先获取最大的_Sortkey的值，然后合并数据，然后把大于_Sortkey的所有数据的_Sortkey值变为最小

xiaoyongxg2

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

加好友

发短信

等级：幼狐帖子：144 积分：1107 威望：0 精华：0 注册：2014/6/1 10:22:00

Post By：2014/9/10 8:06:00 [只看该作者]

这个听起来很难啊

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/9/10 8:30:00 [只看该作者]

http://www.foxtable.com/help/topics/2334.htm

给你来个容易理解的

把增加的行移动到最顶端

参考上面的合并例子增加一句代码即可

Dim Book As New XLS.Book("c:\test\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("订单").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"编号","产品","客户","雇员","单价","折扣","数量","日期"}
'注意下面的循环变量从1开始，而不是从0开始，因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim r As Row = Tables("订单").AddNew()
    For m As Integer = 0 To nms.Length - 1
         r(nms(m)) = Sheet(n,m).Value
    Next

r.move(0) '增加这句代码.移动到第一行
Next
Tables("订单").ResumeRedraw()