[求助]筛选后报错索引超出范围。必须为非负值并小于集合大小。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

代码运行没问题但对表进行筛选后报错

索引超出范围。必须为非负值并小于集合大小。
参数名: index

求助 ...

代码如下

''AfterSelRangeChange

Dim s1,s2,s3 As String

With Tables("表A")

    If .TopPosition > -1 Then '如果选定区域包括数据行
        For i As Integer = .TopPosition To .BottomPosition
            If .Rows(i)("第一列") <> "" Then

                If s1 <> "" Then
                    s1 = s1 & "," & .Rows(i)("第一列")
                Else
                    s1 = .Rows(i)("第一列")
                End If
            End If

            If s2 <> "" Then
                s2 = s2 & "," & .Rows(i)("第二列")
            Else
                s2 = .Rows(i)("第二列")
            End If
        Next
    End If
End With

If Forms("窗口1").Opened Then
Forms("窗口1").Controls("Label1").text= s1
Forms("窗口1").Controls("Label2").text= s2
End If

dvubb 此主题相关图片如下：qq截图20140327183427.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

把.TopPosition > 0改成.RowSel>0

应该是其他代码的问题，上面的没有问题呀。

Dim s1,s2,s3 As String
With Tables("表A")
    If .RowSel < 0 OrElse .ColSel < 0 Then
        Return
    End If
    For i As Integer = .TopPosition To .BottomPosition
        If .Rows(i)("第一列") <> "" Then
            If s1 <> "" Then
                s1 = s1 & "," & .Rows(i)("第一列")
            Else
                s1 = .Rows(i)("第一列")
            End If
        End If
        If s2 <> "" Then
            s2 = s2 & "," & .Rows(i)("第二列")
        Else
            s2 = .Rows(i)("第二列")
        End If
    Next
End With
If Forms("窗口1").Opened Then
    Forms("窗口1").Controls("Label1").text= s1
    Forms("窗口1").Controls("Label2").text= s2
End If

主题：[求助]筛选后报错 索引超出范围。必须为非负值并小于集合大小。

主题：[求助]筛选后报错索引超出范围。必须为非负值并小于集合大小。