| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 754 人关注过本帖
标题:[求助]在程序中如何控制分栏显示,急!
只看楼主 加入收藏
aasd5
Rank: 1
等 级:新手上路
帖 子:57
专家分:0
注 册:2006-4-24
收藏
 问题点数:0 回复次数:9 
[求助]在程序中如何控制分栏显示,急!
这是一个根据表中内容来显示所有与此内容有关的内容的表
表中子段: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




谢谢了
搜索更多相关主题的帖子: father number 如何 记录 
2006-05-30 11:52
中国龙王
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:484
专家分:283
注 册:2006-5-17
收藏
得分:0 
乱七八糟的,哈哈,搞不清楚你说的是什么东西,你把它搞进个表里去麻

不要为了打发无聊而做无聊的事!不要在虚幻的世界里做虚幻的事!
2006-05-30 13:00
aasd5
Rank: 1
等 级:新手上路
帖 子:57
专家分:0
注 册:2006-4-24
收藏
得分:0 

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


2006-05-30 13:11
中国龙王
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:484
专家分:283
注 册:2006-5-17
收藏
得分:0 
假如你要50行一屏,你就在循环中加一句

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

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

不要为了打发无聊而做无聊的事!不要在虚幻的世界里做虚幻的事!
2006-05-30 13:23
aasd5
Rank: 1
等 级:新手上路
帖 子:57
专家分:0
注 册:2006-4-24
收藏
得分:0 
是int函数吗?
我用int和abs都是操作类型不匹配。。
这样只是让它显示50行以后出来等待窗口,怎么在一页上显示很多列呢?

2006-05-30 13:33
中国龙王
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:484
专家分:283
注 册:2006-5-17
收藏
得分:0 
那就用??,
也是在ENDDO前加上类似代码:
你就不要用WAIT(),用?就可以,试一下吧,具体的要你自己搞,你用这个思路,也可以用ROW(),COW()这两个函数好像是确定坐标的

不要为了打发无聊而做无聊的事!不要在虚幻的世界里做虚幻的事!
2006-05-30 13:37
aasd5
Rank: 1
等 级:新手上路
帖 子:57
专家分:0
注 册:2006-4-24
收藏
得分:0 

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


2006-05-30 13:49
aasd5
Rank: 1
等 级:新手上路
帖 子:57
专家分:0
注 册:2006-4-24
收藏
得分:0 
我现在改过的,有点莫明奇妙。。。。
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

2006-05-30 14:17
中国龙王
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:484
专家分:283
注 册:2006-5-17
收藏
得分:0 
哪里有你搞的那么复杂,
你就这样子:
X=0
DO WHILE X<10000
IF 求余函数(X/20)=0
? X
ELSE
?? X
ENDIF
X=X+1
ENDDO

不要为了打发无聊而做无聊的事!不要在虚幻的世界里做虚幻的事!
2006-05-30 15:48
aasd5
Rank: 1
等 级:新手上路
帖 子:57
专家分:0
注 册:2006-4-24
收藏
得分:0 
原来如此阿,谢谢了。。

2006-05-31 11:39
快速回复:[求助]在程序中如何控制分栏显示,急!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.061317 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved