这是一个根据表中内容来显示所有与此内容有关的内容的表
表中子段：number 记录号
name 名称
father 傅类所在记录号
请教：如何控制分栏显示和一页显示完了按任意键再显示下一页

if used ("表")
select 表
else
use 表
endif
set order to ABCD *按名称排列
go top
do while .not.eof()
?name
n=recno()
f=father
if father=0
else
go father
?name
go n
endif
locate for father=n
do while .not.eof()
?name
continue
enddo
locate for father=f
do while .not.eof()
if recno()=n
continue
else
?name
continue
endif
enddo
go n
skip
enddo




谢谢了

那我换一个说法，例如，我有一个程序
x=0
while x<10000
?x
x=x+1
enddo
执行这条语句vfp就会从上到下开始显示0,1,2.....
我想让它分栏在屏幕上显示（即显示很多列。。）
并且在显示完一页之后按任意键显示下一列。。。。
谢谢

是int函数吗？
我用int和abs都是操作类型不匹配。。
这样只是让它显示50行以后出来等待窗口，怎么在一页上显示很多列呢？

-_-||||||
什么代码啊。。。。。
？具体有哪些用法啊。。。

我现在改过的，有点莫明奇妙。。。。
x=0
m=0
n=0
w=0
e=0
do while x<1000
if x<=33
w=x
e=0
else
if x<=66
w=x-34
e=10
else
w=x-68
e=20
endif
endif
@w,e say x
x=x+1
m=m+1
n=n+1
if mod(x,33)=0
wait
endif
enddo

原来如此阿，谢谢了。。