合并数据，提示出错，有些数据导入了，有些的数据没导入成功 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 合并数据，提示出错，有些数据导入了，有些的数据没导入成功

共有4108人关注过本帖树形打印复制链接主题：合并数据，提示出错，有些数据导入了，有些的数据没导入成功

ganlanlee

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

加好友

发短信

等级：婴狐帖子：33 积分：240 威望：0 精华：0 注册：2021/3/17 14:10:00

合并数据，提示出错，有些数据导入了，有些的数据没导入成功 发帖心情

Post By：2021/3/29 14:01:00 [只看该作者]

此主题相关图片如下：微信截图_20210329135739.png

此主题相关图片如下：微信截图_20210329135407.png

此主题相关图片如下：微信截图_20210329135209.png

之前合并数据的时候，都不会有这个提示，今天导入数据提示，请问是什么原因呀，有些数据导入了，有些的数据没导入成功。

[此贴子已经被作者于2021/3/29 14:02:04编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/29 14:09:00 [只看该作者]

把空字符串导入了双精度的列。到execl里把设置一下对应的列格式为数值列，或者使用代码导入：http://www.foxtable.com/webhelp/topics/2334.htm

ganlanlee

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

加好友

发短信

等级：婴狐帖子：33 积分：240 威望：0 精华：0 注册：2021/3/17 14:10:00

Post By：2021/3/29 22:00:00 [只看该作者]

好的，可以了，有个新问题，

我选择更新同主记录，为啥，还是会无条件的合并进来了

此主题相关图片如下：1.png

此主题相关图片如下：2.png

[此贴子已经被作者于2021/3/29 22:01:58编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/29 22:07:00 [只看该作者]

什么是主键？foxtable创建的表只有_indentify列才是主键。

要排除其它列重复数据，要使用这种方法http://www.foxtable.com/webhelp/topics/2334.htm

ganlanlee

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

加好友

发短信

等级：婴狐帖子：33 积分：240 威望：0 精华：0 注册：2021/3/17 14:10:00

Post By：2021/3/30 16:16:00 [只看该作者]

哦，我以为合并的时候，绿色显示这一列默认为主键

ganlanlee

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

加好友

发短信

等级：婴狐帖子：33 积分：240 威望：0 精华：0 注册：2021/3/17 14:10:00

Post By：2021/4/13 13:13:00 [只看该作者]

你好，请教一下，像这种事件（导入要排除其它列重复数据）的代码，写在哪里才是正确的。

Dim Book As New XLS.Book("c:\test\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("订单").StopRedraw()
Dim nms() As String = {"编号","产品","客户","雇员","单价","折扣","数量","日期"}
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim bh As String = sheet(n,0).Text
    Dim dr As DataRow = DataTables("订单").Find("编号 = '" & bh & "'")
    If dr Is Nothing Then '如果不存在同编号的订单
        dr = DataTables("订单").AddNew()
    End If
    For m As Integer = 0 To nms.Length - 1
        dr(nms(m)) = Sheet(n,m).Value
    Next
Next
Tables("订单").ResumeRedraw()