这句代码如何能做到不出现以下的那个提示? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用blackzhu在2011-5-22 21:00:00的发言：

不对,这个是我测试不过来,当时加了这个看看的.

Select Case e.DataCol.Name
    Case "第一列"
        With Tables("表A")
            For i As Integer = 0 To Tables("表A").Count -1
                .Rows(i)("第九列")= .Rows(i)("第一列") *.Rows(i+1)("第一列") '选定行相乘
            Next
        End With
End Select

当时这个代码出现提示的.

这也是有严重错误的，当i循环到Tables("表A").Count -1时，i+1等于Tables("表A").Count ，那么：

.Rows(i+1)("第一列")

肯定会出错，因为根本就不存在编号为Tables("表A").Count的行，行的编号最大为Tables("表A").Count -1

你的循环代码应该改为:

For i As Integer = 0 To Tables("表A").Count -2

主题：这句代码如何能做到不出现以下的那个提示?