主题：提示内部索引已损坏，何故？

如图所示错误提示，是在反复按“上移一行”和“下移一行”的按钮时，报错：两个按钮的代码如下：

上移一行：

Dim 页签 As WinForm.TabControl= e.Form.Controls("TabControl1")
Select 页签.SelectedIndex
    Case 0
        Tables("目录维护_目录标签").Current.Move(Tables("目录维护_目录标签").Position - 1)
    Case 1
        Tables("目录维护_目录树").Current.Move(Tables("目录维护_目录树").Position - 1)
End Select

 

 

 

下移一行：

Dim 页签 As WinForm.TabControl= e.Form.Controls("TabControl1")
Select 页签.SelectedIndex
    Case 0
        Tables("目录维护_目录标签").Current.Move(Tables("目录维护_目录标签").Position + 1)
    Case 1
        Tables("目录维护_目录树").Current.Move(Tables("目录维护_目录树").Position + 1)
End Select

 

错误往往是在按按钮比较迅速和频繁的时候发生，请帮助分析什么原因！

 

此主题相关图片如下：qq图片20140618120820.jpg

例 子太大了，上传也极不方便，我这个是窗体table,老师们以自己的经验，可否推测出是哪些方面的原因，比如是和某些事件有冲突吗？

我的数据库是外部数据库，应该和压缩无关，后来我将窗体的table的副本属性改成了false，然后就再没有出现过这个错误了！看来和这个有关