Foxtable(狐表)用户栏目专家坐堂 → 代码发生严重错,居然还删除数据?


  共有1921人关注过本帖树形打印复制链接

主题:代码发生严重错,居然还删除数据?

帅哥哟,离线,有人找我吗?
yancheng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:843 积分:5982 威望:0 精华:0 注册:2013/6/29 9:36:00
代码发生严重错,居然还删除数据?  发帖心情 Post By: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数据库看,也没有了。

 回到顶部
帅哥哟,离线,有人找我吗?
yancheng
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:843 积分:5982 威望:0 精华:0 注册:2013/6/29 9:36:00
  发帖心情 Post By:2017/5/25 18:51:00 [显示全部帖子]

我先把下面代码删除:
DataTables("历史合同").RemoveFor("[历史合同编号] = '" & e.Table.Current("历史合同编号") & "'")
        DataTables("历史合同").AppendLoad("[历史合同编号] = '" & e.Table.Current("历史合同编号") & "'")

再用用,看看。 

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

 回到顶部
帅哥哟,离线,有人找我吗?
yancheng
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:843 积分:5982 威望:0 精华:0 注册:2013/6/29 9:36:00
  发帖心情 Post By:2017/5/25 20:47:00 [显示全部帖子]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=101154&page=1&star=1
我又开了个问题贴 。但这个应该是跟这个问题,一起的。因为,弹错,都这个操作。和这个表。

麻烦老师看一下。挺头疼的。(不知道是不是OPENQQ的代码加入后,的原因?)

 回到顶部