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

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

上移一行：

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