主题：报错求救

If Vars("用户组") = "管理员" and  Vars("用户组") <> "车间主管"
    With Tables("日报表")
        If .TopPosition > -1 Then
            For i as Integer = .TopPosition To .BottomPosition
                If .Rows(i,True).IsGroup Then
                    Exit For
                else
                    If .Rows(i)("审核") = False Then
                        .Rows(i)("审核") = True
                        .Rows(i)("审核人") = Tables("登陆")(0)("用户名") & " " & now
                    Else
                        .Rows(i)("审核") = False
                        .Rows(i)("审核人") = Tables("登陆")(0)("用户名") & " " & now
                    End If
                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,True).IsGroup Then
                    Exit For
                else
                    If .Rows(i)("审核") = False Then
                        .Rows(i)("审核") = True
                        .Rows(i)("审核人") = Tables("登陆")(0)("用户名") & " " & now
                    End If
                end if
            Next
        End If
    End With
End If