主题：当我在某表格插入一行时，提示：DATATABLE内部索引已损坏“5”。请问如何解决？

测试了一下，你要把 BeforeSelChange 的代码删除，也就是

If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行
    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
        Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行
        r.Save() '保存之
    End If
End If

如果要保存，你可以在DataRowAdding事件写

e.DataTable.Save