标题：请教，有For ...Next.
dim k as string = 20
for i as integer = 0 to k
if a > 10 then
k = k -1
end if
Next
目的是当遇a>10时，for ..... Next 循环次数减一次（少循环一次）
上面这样实现不了。请教，如何实现？先谢了！！！
dim k as string = 20
for i as integer = 0 to k
if a > 10 then
i = i+1
end if
Next
dim k as string = 20
for i as integer = 0 to k
if a > 10 then
i = i+1
end if
Next
目的是K是打印页数，打印页数会根据每行的内容多少，设定一定宽度，再根据宽度大小来增中页数。按上面的代码只会减少页数。我上面说错了，是
dim k as string = 20
for i as integer = 0 to k
if a > 10 then
k = k +1
end if
Next
目的是当遇a>10时，for ..... Next 循环次数增中一次
不好意思！
dim k as string = 20
应该是：
dim k As Integer
否则+1就成了201，不是21
dim k as string = 20
应该是：
dim k As Integer
否则+1就成了201，不是21
?????????
此主题相关图片如下：未命名1.jpg
这样才是你说的结果：
此主题相关图片如下：未命名2.jpg
增加页数：
Dim k as Integer= 20
for i as integer = 0 to k
if a > 10 then
i = i - 1
end if
Next
a 在循环时也变化吗？ 如果不是的话应该这样吧：
dim k as integer = 20
dim a as integer = 变量
if a > 10 then
k = k +1
end if
for i as integer = 0 to k
······
Next
好像都不行，现只能把K固定一个较大的值，然后根据每页的行数及表总行数进行判断退出循环。
For t as integer = 0 to 1000
'中间的每页行数省略
if a > 10 then
j = j + 1
end if
if t < j then
Dim rm1 As prt.RenderEmpty
rm1 = new prt.RenderEmpty '定义一个新的空对象
rm1.BreakBefore = prt.BreakEnum.Page '打印前换页
doc.Body.Children.Add(rm1)
else
exit for
end if
Next