主题：报错求救

我在窗口按钮设置以下代码：
If Vars("用户组") = "管理员" and  Vars("用户组") <> "车间主管"
    With Tables("日报表")
        If .TopPosition > -1 Then
            For i as Integer = .TopPosition To .BottomPosition
                If .Rows(i)("审核") = False Then
                    .Rows(i)("审核") = True
                    .Rows(i)("审核人") = Tables("登陆")(0)("用户名") & " " & now
                Else
                    .Rows(i)("审核") = False
                    .Rows(i)("审核人") = Tables("登陆")(0)("用户名") & " " & now
                End If
            Next
        End If
    End With
End If
If Vars("用户组") = "车间主管"
    With Tables("日报表")
        If .TopPosition > -1 Then
            For i as Integer = .TopPosition To .BottomPosition
                If .Rows(i)("审核") = False Then
                    .Rows(i)("审核") = True
                    .Rows(i)("审核人") = Tables("登陆")(0)("用户名") & " " & now
                End If
            Next
        End If
    End With
End If
如选定行>筛选行/2,就报错，代码执行筛选行的一半行数，比如我窗口表筛选出20行"审核" = False的数据，我选择其中11到20行都一样，点按钮，只执行10行，并提示。
提示如下。


此主题相关图片如下：未命名.gif

请帮忙看看问题出在哪里

还是不行，应该是筛选的问题，请看示范文件，怎样在点按钮时，保持已筛选的行就好了（不是撤销筛选），谢谢

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

点击浏览该文件:管理项目24.table

 

6楼还是不行，如果有代码指定暂停筛选就好了，CurrentTable.ApplyFilter = False不行，显示所有行了，要求当前筛选不变。代码应该怎么写