以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  调用的目标发生了异常。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=149386)

--  作者:nbsugu_z
--  发布时间:2020/4/30 10:19:00
--  调用的目标发生了异常。
Dim Result As DialogResult
Result = MessageBox.Show("您确认要删除此条记录吗?删除后将不能恢复", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
   
    If Tables("dk_cpb.dk_lxb").rows.count >= 0 Then \'判断记录是否为空成立
        Tables("dk_cpb.dk_lxb").AllowEdit=True
        Tables("dk_cpb.dk_lxb").Current.Locked = False
        Tables("dk_cpb.dk_lxb").Current.Delete
        Tables("dk_cpb.dk_lxb").AllowEdit=False
        DataTables("dk_lxb").Save()
    Else
        Return
    End If
   End If

为什么最后一条记录删除后为出现“调用的目标发生了异常”提示。删是删掉了,但是有这个提示,看着不爽。

--  作者:有点蓝
--  发布时间:2020/4/30 10:42:00
--  
If Tables("dk_cpb.dk_lxb").rows.count > 0 Then \'判断记录是否为空成立
--  作者:nbsugu_z
--  发布时间:2020/4/30 11:17:00
--  
修改>0 还是一样
--  作者:有点蓝
--  发布时间:2020/4/30 11:25:00
--  
那就不一定是这段代码的问题,提示是什么事件出错?

或者看看那一句代码出错,调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm