“预期陈述”在 If then 语句中

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

我必须采取一种解决方法（这会导致大量冗余代码），

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

其中这两个子程序完全相同，除了一个以 20（页面大小）增量循环，另一个循环遍历整个数据集。

Answer 2

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

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

Answer 3

您是否缺少 Next J 语句？

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

Answer 4

我认为在 for 循环之后您可能需要一个 Next