主题：请教，有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 循环次数减一次（少循环一次）

 

上面这样实现不了。请教，如何实现？先谢了！！！

目的是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 循环次数增中一次

 

不好意思！

是否K这个变量的值是不能在for ..... 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