- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]高速合并报错_列“编号”被约束为是唯一的。值“”已存在 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48450)
-- 发布时间：2014/3/28 21:35:00
-- [求助]高速合并报错_列“编号”被约束为是唯一的。值“”已存在
我有一个表，其中“编号”为主键，存在test.mdb中，想定期根据编号通过高速合并中的更新同主键记录做自动更新。但会报错:“列“编号”被约束为是唯一的。值“”已存在。”
-- 发布时间：2014/3/28 22:19:00
--
我想，应该是你的表上有数据，在合并前全清空就可以了
-- 发布时间：2014/3/28 23:16:00
--
清空了也不成，还是相同的错误。
-- 发布时间：2014/3/29 9:10:00
--
因为你的“T00000100056”不是“T00000100056”，而是"T00000100056 "，后面有空格，影响了系统的判断。
-- 发布时间：2014/3/29 9:37:00
--
这个因为编号作为主键引发的问题，导入的时候，必须赋值和唯一。只能变通一下导入，用下面的代码
Dim Book As New XLS.Book(ProjectPath & "2.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("test").StopRedraw()
\'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"编号","标题"}
Tables("test").AddNew()
\'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,0).Text
If DataTables("test").Find("编号 = \'" & bh & "\'") Is Nothing Then \'如果不存在同编号的订单
Dim r As Row = Tables("test").AddNew()
For m As Integer = 0 To nms.Length - 1
Tables("test").rows(r.index-1)(nms(m)) = Sheet(n,m).Value
Next
End If
Next
Tables("Test").Current.Delete
Tables("test").ResumeRedraw()
-- 发布时间：2014/3/31 19:52:00
--
按您的方法试了，把数据库清空，然后把空格都删除还是不成，同样的报错
-- 发布时间：2014/3/31 20:14:00
--
按您的方法试了，把数据库清空，然后把空格都删除还是不成，同样的报错
我用例子测试没有报错。你清空数据以后，记得保存。