If Then Statement中的“预期声明”

Question

我有一个经典的asp应用程序，如果用户选择将此报告导出到excel中，我需要跳过for循环（for循环对结果进行分页）

我试图跳过这个，就像这样：

 if not wordExport then    
    response.Write "test"
    for J = 1 to RSList.PageSize
    end if

此处有更多代码显示数据库中的所有信息。（由于用户选择了“导出”，因此没有分页）

 if not wordExport then
    RSList.movenext
    next
    end if

然而，我一直收到以下错误：

Microsoft VBScript compilation error '800a0400'

Expected statement


end if
^

有什么我想念的吗？我不明白......啊啊。帮助！

Answer 1

是的，你甚至没有一个合适的FOR循环开始。

 if not wordExport then    
    response.Write "test"
    for J = 1 to RSList.PageSize
    next   <-----
end if

Answer 2

你错过了Next J声明吗？

if not wordExport then    
    response.Write "test"
    for J = 1 to RSList.PageSize
    'Do Something
    Next J
end if

Answer 3

我认为您的Next循环

后可能需要for

Answer 4

我必须做一个解决方法（导致大量冗余代码）

if wordExport then
Call DisplayAll()
else
Call DisplayWithPages()
end if

这两个subs完全相同，除了一个以20为增量的循环（页面大小），另一个循环遍历整个数据集。