标题:求助:这个代码怎么写?
只看楼主
zhangxinsh
Rank: 1
等 级:新手上路
帖 子:19
专家分:4
注 册:2017-3-15
 问题点数:0 回复次数:6 
求助:这个代码怎么写?



如图,只要写出一种方法就好,我用的VFP9.0,我自己写不好。完不成作业。

各位大神一定要帮忙啊,这个对于你们来说,不算事,但是我很需要学会这个,谢谢啦~~~~~~~~

拜谢

语句越简单越好

2017-03-31 11:19
zhangxinsh
Rank: 1
等 级:新手上路
帖 子:19
专家分:4
注 册:2017-3-15
得分:0 
没有人来帮忙吗??

2017-03-31 11:43
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:190
帖 子:3125
专家分:8340
注 册:2015-3-25
得分:0 
看不出,你要做什么。。。
2017-03-31 12:00
zhangxinsh
Rank: 1
等 级:新手上路
帖 子:19
专家分:4
注 册:2017-3-15
得分:0 
回复 3楼 mywisdom88
就是用统计表里的帅群替换掉舞蹈班和语言班的李娜

或者说将舞蹈班和语言班的李娜替换成统计表里面的帅群
2017-03-31 12:37
zhangxinsh
Rank: 1
等 级:新手上路
帖 子:19
专家分:4
注 册:2017-3-15
得分:0 
怎样用代码来实现

2017-03-31 12:38
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:190
帖 子:3125
专家分:8340
注 册:2015-3-25
得分:0 
* VFP 用REPLACE 命令,参考下面
* 先打开表 tb1(字段1,字段2,字段3,字段4)
* 先打开表 tb2(字段1,字段2,字段3,字段4)
if !used("tb1")
   use d:\test\tb1.dbf in 0
end
if !used("tb2")
   use d:\test\tb2d.dbf in 0
end

* 把要替换内容找出来,放到变量 a1,a2,a3,a4 去
a1='帅群'
select tb2
locate for allt(字段1)=a1
if found()
   a2=allt(字段2)
   a3=allt(字段3)
   a4=allt(字段4)
   
   select tb1
   b1='李娜'
   locate for allt(字段1)=b1
   if found()
      replace 字段1 with a1,字段2 with a2,字段3 with a3,字段4 with a4
   endif
endif
* 注意,上面的字段都是按 字符类型来的,如果不是字符串的,要把 allt()函数去掉,你看看这明白不,看明白了,你自己就可以根据这个来修改你自己的了。
* 这只是其中的1种,还有很多


2017-03-31 14:11
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:0 
SELECT xytj
LOCATE FOR ALLTRIM(姓名)=="帅群"
IF FOUND()
    SELECT wdb
    LOCATE FOR ALLTRIM(姓名)=="李娜"
    IF FOUND()
        REPLACE 姓名 WITH xytj.姓名,;
            性别 WITH xytj.性别,;
            年龄 WITH xytj.年龄,;
            入学时间 WITH xytj.入学时间,;
            开班时间 WITH xytj.开班时间,;
            备注 WITH xytj.备注
    ENDIF
    SELECT yyb
    LOCATE FOR ALLTRIM(姓名)=="李娜"
    IF FOUND()
        REPLACE 姓名 WITH xytj.姓名,;
            性别 WITH xytj.性别,;
            年龄 WITH xytj.年龄,;
            入学时间 WITH xytj.入学时间,;
            开班时间 WITH xytj.开班时间,;
            备注 WITH xytj.备注
    ENDIF
ENDIF
2017-03-31 22:56



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-475676-1-1.html




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

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