| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 代码发生严重错，居然还删除数据？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101139) |
| -- 作者：yancheng -- 发布时间：2017/5/25 17:13:00 -- 代码发生严重错，居然还删除数据？ .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数据库看，也没有了。 |
| -- 作者：有点色 -- 发布时间：2017/5/25 18:23:00 -- 如果不写在currentChanged事件，有没有问题？比如写到click事件。 |
| -- 作者：yancheng -- 发布时间：2017/5/25 18:51:00 -- 我先把下面代码删除： DataTables("历史合同").RemoveFor("[历史合同编号] = \'" & e.Table.Current("历史合同编号") & "\'") DataTables("历史合同").AppendLoad("[历史合同编号] = \'" & e.Table.Current("历史合同编号") & "\'") 再用用，看看。 click不知道怎么写。我是写在表事件的。 |
| -- 作者：yancheng -- 发布时间：2017/5/25 20:47:00 -- http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=101154&page=1&star=1 我又开了个问题贴 。但这个应该是跟这个问题，一起的。因为，弹错，都这个操作。和这个表。 麻烦老师看一下。挺头疼的。（不知道是不是OPENQQ的代码加入后，的原因？）
|
| -- 作者：有点色 -- 发布时间：2017/5/25 21:27:00 -- 以下是引用yancheng在2017/5/25 18:51:00的发言：
我先把下面代码删除： DataTables("历史合同").RemoveFor("[历史合同编号] = \'" & e.Table.Current("历史合同编号") & "\'")
DataTables("历史合同").AppendLoad("[历史合同编号] = \'" & e.Table.Current("历史合同编号") & "\'")
再用用，看看。
click不知道怎么写。我是写在表事件的。
就是表的click事件，代码暂时可以不变。 |