| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1716 人关注过本帖
标题:关于计算小题得分的代码。
只看楼主 加入收藏
qingquan31
Rank: 1
等 级:新手上路
威 望:2
帖 子:172
专家分:0
注 册:2007-6-19
收藏
得分:0 

SELECT 1
USE ks
COPY STRUCTURE TO jg
SELECT 2
USE da
SELECT 3
USE jg
SELECT 1
nn=""
ks=""
DO WHILE !EOF()
nn=zkz
SELECT 3
APPEND BLANK
REPLACE zkz WITH nn
SELECT 1
FOR n=1 TO FCOUNT()-1
ks=field(n+1)
cks="ks." + ks
cda="da." + ks
IF &cks=&cda
SELECT 3
REPLACE &ks WITH "1"
ELSE
SELECT 3
REPLACE &ks WITH "0"
ENDIF
ENDFOR
SELECT 1
SKIP
ENDDO


春风红照日,夏雨绿送归。 秋霜黄落叶,冬雪白花飞。
2007-07-04 12:04
qingquan31
Rank: 1
等 级:新手上路
威 望:2
帖 子:172
专家分:0
注 册:2007-6-19
收藏
得分:0 
jg表是你想要的结果

春风红照日,夏雨绿送归。 秋霜黄落叶,冬雪白花飞。
2007-07-04 12:05
ld821230
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2007-7-4
收藏
得分:0 
非常感谢
结果能出来,不过以下代码报错,只能忽略,才能才行
IF &cks=&cda
SELECT 3
REPLACE &ks WITH "1"
ELSE
SELECT 3
REPLACE &ks WITH "0"
ENDIF
2007-07-04 12:46
qingquan31
Rank: 1
等 级:新手上路
威 望:2
帖 子:172
专家分:0
注 册:2007-6-19
收藏
得分:0 
没有出错阿,我的运行,正常,提示什么错误了?
我没有加close all
你之前可能运行了,提示重复打开库吧?你关闭VFP或者加上CLOSE ALL

春风红照日,夏雨绿送归。 秋霜黄落叶,冬雪白花飞。
2007-07-04 13:29
快速回复:关于计算小题得分的代码。
数据加载中...
 
   



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

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