主题：索引不为负数就是大于行数的错误？

代码这是这样currentchanged事件：

Dim t As Table = e.Table

If t.Current Is Nothing Then

    Return

Else

    If t.name = Mtb & "_主表" Then '如果选中的是主表

        Tables(Mtb & "_主表").AutoSizeRows()  '自动设置行高

        

        '选择不同主表行时筛选子表明细

        If Ctb > "" Then

            If Tables(Mtb & "_主表").rows.count > 0 Then '如果主表有数据

                Dim flt As String = Rcol & " = '" & Tables(Mtb & "_主表").Current(Rcol) & "'"

                Tables(Mtb & "_明细").Filter = flt

            End If

            Tables(Mtb & "_明细").AutoSizeRows() '自动设置行高

        End If

    End If

End If

此主题相关图片如下：360截图20131202144316530.jpg

如果在上方的主表只有一行或者多行时选择的是最后一行，然后用菜单上的移除按钮移除所选行后就出现这个问题了。如果有多行选择的不是最后一行则没有问题。

请问要怎么避免？