这是一个根据表中内容来显示所有与此内容有关的内容的表
表中子段：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.....
我想让它分栏在屏幕上显示（即显示很多列。。）
并且在显示完一页之后按任意键显示下一列。。。。
谢谢

假如你要50行一屏,你就在循环中加一句

if 求整(X/50)=.T. *不好意思求整函数我搞忘了,就是那个意思,自己去找,我只给个思路
wait() *就是让它停一下的意思,命令对不对自己去试或找一下
endif

把这段代码加在ENDDO之前就女子

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

那就用??,
也是在ENDDO前加上类似代码:
你就不要用WAIT(),用?就可以,试一下吧,具体的要你自己搞,你用这个思路,也可以用ROW(),COW()这两个函数好像是确定坐标的

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

我现在改过的，有点莫明奇妙。。。。
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

哪里有你搞的那么复杂，
你就这样子：
X=0
DO WHILE X<10000
IF 求余函数(X/20)=0
? X
ELSE
?? X
ENDIF
X=X+1
ENDDO

原来如此阿，谢谢了。。