[求助]在程序中如何控制分栏显示,急!
这是一个根据表中内容来显示所有与此内容有关的内容的表表中子段: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
谢谢了