主题：“必须为非负值并小于集合大小”是怎么回事？怎么解决？

我在BeforeSelRangeChange，AfterSelRangeChange设置事件，选择范围改变均没问题，在用了表事件，keydown后（空格），提示“必须为非负值并小于集合大小”，提示错误事件在BeforeSelRangeChange，AfterSelRangeChange中，这怎么解决？

BeforeSelRangeChange，AfterSelRangeChange之类的事件，前面都要加判断：

If e.Tabel.RowSel < 0 Orelse e.Tabel.ColSel < 0 Then

     Return

End If

两个事件都加了判断的，还是会出现这种情况，before码如下：

If CurrentTable.RowSel < 0 OrElse CurrentTable.ColSel < 0 Then
     Return
End If

For Each r As Row In Tables("原始数据").GetCheckedRows
    r.Checked =False
Next

after代码如下：

If CurrentTable.RowSel < 0 OrElse CurrentTable.ColSel < 0 Then
    Return
End If
MessageBox.Show(1)
For i As Integer = CurrentTable.TopPosition To CurrentTable.BottomPosition
    CurrentTable.Rows(i).Checked = True
Next
MessageBox.Show(2)
With e.NewRange
    StatusBar.Message2 = CurrentTable.TopRow & "," & CurrentTable.LeftCol & " " & CurrentTable.BottomRow & "," & CurrentTable.RightCol & "  共选择" & cstr(CurrentTable.BottomPosition-CurrentTable.TopPosition+1) & "行"
End With

如例子，先选择部分区域后，使用表快捷键ALT+S,然后再点击表，则会报错，请帮忙看看！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

 测试了一下，确实会报错。你把下面的代码放到AfterSelRangeChange事件里去吧

For Each r As Row In Tables("原始数据").GetCheckedRows
    r.Checked =False
Next

改成这样更好

Tables("原始数据").ClearCheckedRows