主题：[求助]删除行时出现“索引 1 不是为负数，就是大于行数。”

 汗，这个是bug。

 只要currentChanged事件写有代码，同时解锁行和删除行，就会报这个错的。

 删除按钮处理一下

With Tables("员工信息登记表")
    If .Current IsNot Nothing Then
        Dim Result As DialogResult
        Result = MessageBox.Show("确定要删除数据吗?  删除后将不能恢复!!!", "警告",MessageBoxButtons.OKCancel,MessageBoxIcon.Warning )
        If Result = DialogResult.ok Then
            .Current.Locked = False
            systemready = False
            .Current.Delete
            systemready = True
        End If
    End If
End With