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

此主题相关图片如下：qq图片20160217133648.png

表“员工信息登记表”与窗口中的表位置联动，删除行后出现错误

窗口中表的代码

If e.Table.Current Is Nothing Then Return
Tables("员工信息登记表_Table1").AutoSizeCols() '自动调整列宽
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("员工信息登记表").FindRow(dr)

If wz >=0 Then
    systemready = False
    Tables("员工信息登记表").Position = wz

    systemready = True
End If

 汗，这个是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