以文本方式查看主题

-  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=103364)
--  作者：xiaohuli
--  发布时间：2017/7/6 15:37:00
--  删除行错误

代码如下，点击删除按钮时出现，索引超出范围。必须为非负值并小于集合大小。

If Tables("员工基础信息表.员工奖惩记录表").Rows.Count = 0 Then
    MessageBox.show("当前员工没有奖惩记录!")
Else
    Dim st As DialogResult
    st = MessageBox.Show("确定要删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If st = DialogResult.Yes Then
        With Tables("员工基础信息表.员工奖惩记录表")
            If .Current IsNot Nothing Then
                .Current.Locked = False
                .Current.delete
            End If
        End With
    End If
    
  End If

 
--  作者：有点甜
--  发布时间：2017/7/6 15:45:00
--  
 看你表员工奖惩记录表的currentChanged事件、afterSelChanged事件等等。把里面的代码屏蔽一下。
--  作者：xiaohuli
--  发布时间：2017/7/6 16:02:00
--  
老师，员工奖惩记录表中啥事件都没有啊
--  作者：有点甜
--  发布时间：2017/7/6 16:25:00
--  
以下是引用xiaohuli在2017/7/6 16:02:00的发言：
老师，员工奖惩记录表中啥事件都没有啊

 

我测试没问题，做个具体实例发上来看看。