代码发生严重错，居然还删除数据？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

.NET Framework 版本：2.0.50727.8669

Foxtable 版本：2017.5.22.1

错误所在事件：

详细错误信息：

列“_Identify”被约束为是唯一的。值“71”已存在。

我在表：历史合同明细。CurrentChanged写入：

'历史合同当前行定位----------------------------------------------------
If Tables("历史合同明细").Focused Then
If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
Dim wz As Integer
Dim dr As DataRow
dr = DataTables("历史合同").SQLFind("[历史合同编号] = '" & e.Table.Current("历史合同编号") & "'")
If dr IsNot Nothing Then
DataTables("历史合同").RemoveFor("[历史合同编号] = '" & e.Table.Current("历史合同编号") & "'")
DataTables("历史合同").AppendLoad("[历史合同编号] = '" & e.Table.Current("历史合同编号") & "'")
wz = Tables("历史合同").FindRow(dr)
If wz >= 0 Then
Tables("历史合同").Position = wz
End If
End If
End If

当执行时，弹错。且把;历史合同的行删除了？我进入SQL数据库看，也没有了。

如果不写在currentChanged事件，有没有问题？比如写到click事件。

我先把下面代码删除：

DataTables("历史合同").RemoveFor("[历史合同编号] = '" & e.Table.Current("历史合同编号") & "'")
DataTables("历史合同").AppendLoad("[历史合同编号] = '" & e.Table.Current("历史合同编号") & "'")

再用用，看看。

click不知道怎么写。我是写在表事件的。

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=101154&page=1&star=1

我又开了个问题贴。但这个应该是跟这个问题，一起的。因为，弹错，都这个操作。和这个表。

麻烦老师看一下。挺头疼的。（不知道是不是OPENQQ的代码加入后，的原因？）

以下是引用yancheng在2017/5/25 18:51:00的发言：
我先把下面代码删除：

DataTables("历史合同").RemoveFor("[历史合同编号] = '" & e.Table.Current("历史合同编号") & "'")

DataTables("历史合同").AppendLoad("[历史合同编号] = '" & e.Table.Current("历史合同编号") & "'")

再用用，看看。

click不知道怎么写。我是写在表事件的。

就是表的click事件，代码暂时可以不变。

主题：代码发生严重错，居然还删除数据？