| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 936 人关注过本帖
标题:[求助]代码出错了,向各位请教
只看楼主 加入收藏
mljiangyw
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-4-24
收藏
 问题点数:0 回复次数:11 
[求助]代码出错了,向各位请教

偶刚学VFP不久,写了一段代码,一运行就进入死循环,哪位高手帮忙看看哪里出错了,多谢了!

SET TALK OFF
SELECT 1
USE 表1

go top
do while .not. EOF()

a1=姓名

a2=语文

a3=数学

a4=英语

a5=总成绩

a6=平均成绩

a7=考试日期

a5=a2+a3+a4

a6=a5/3

SELECT 2
use 考试日期
y2=年份
m2=月份
use
y2=val(y2)
m2=val(m2)

if m2>0 .and. m2<10
m3=1
else
m3=2
endi
mm=str(m2,m3)
yy=str(y2,4)
ymym=yy+mm
a7=ymym

SELECT 1
USE 表1

replace 姓名 with a1

replace 语文 with a2

replace 数学 with a3

replace 英语 with a4

replace 总成绩 with a5

replace 平均成绩 with a6

replace 考试日期 with a7

SELECT 1
ENDDO

USE

retu

搜索更多相关主题的帖子: 代码 
2006-04-27 17:41
wzxc
Rank: 9Rank: 9Rank: 9
来 自:齐鲁大地
等 级:贵宾
威 望:39
帖 子:985
专家分:1296
注 册:2006-4-25
收藏
得分:0 
没有skip
永远也到不了尾。

认真看书学习,弄通Fox主义。
2006-04-27 20:55
qqqaaaqqq
Rank: 1
等 级:新手上路
帖 子:94
专家分:0
注 册:2005-12-30
收藏
得分:0 
在ENDDO前加上skip
2006-04-27 21:08
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
收藏
得分:0 
呵呵!典型的循环不循环,转圈不转圈儿!

2006-04-28 08:00
Tailor
Rank: 1
等 级:新手上路
帖 子:152
专家分:0
注 册:2005-6-26
收藏
得分:0 

有人和我范同样的毛病.
你如果用For循环可能就不会有这样的问题了.


2006-04-28 14:43
mljiangyw
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-4-24
收藏
得分:0 

怎么处理?
请大家指点一二,谢了!

2006-04-28 15:35
wzxc
Rank: 9Rank: 9Rank: 9
来 自:齐鲁大地
等 级:贵宾
威 望:39
帖 子:985
专家分:1296
注 册:2006-4-25
收藏
得分:0 
二三楼都告诉你啦

认真看书学习,弄通Fox主义。
2006-04-29 19:53
lndsqfyq
Rank: 1
等 级:新手上路
帖 子:232
专家分:0
注 册:2006-1-16
收藏
得分:0 
有意识。多少年了,还有犯这种错误的。

2006-04-30 08:09
dytfmm
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2005-9-25
收藏
得分:0 
典型的循环不循环,转圈不转圈儿!
真有个性,其实大家当初都有过今天。

不过这哥们说出来了,大家不免都想呵呵两声。
2006-05-04 15:50
wanpj
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2006-5-19
收藏
得分:0 
用SCAN语句不是很好嘛

爱过的人,我从不曾拥有。爱过的心,没有任何请求 所以,我有一千个伤心的理由
2006-05-20 17:19
快速回复:[求助]代码出错了,向各位请教
数据加载中...
 
   



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

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