| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2614 人关注过本帖
标题:求2个表的字段比较
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
回复 8楼 yd1954
今天早上上网看了下,发现结果不正确,在6楼代码的基础上又进行了修改

坚守VFP最后的阵地
2020-08-21 09:30
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
程序代码:
NOTE by.dbf 改名 bX1.dbf 原因:自己想
lcStr = "z7,z8,z10,z11,z15,z23,z27,z28,z30,z31,z32,z33,z34,z35,z37,z38,z39,z40,z44,z45,z46,z50,z51,z52,z53,z54,z55,z59,z60,z61"
ALINES(laStr, lcStr, ",")
SELECT 0000 xh, &lcStr FROM bX1 WHERE .F. INTO TABLE BX2  && 生成的新表
SELECT &lcStr FROM bx WHERE RECNO() = RECCOUNT() INTO ARRAY aRecc
SELECT &lcStr FROM bX1 INTO CURSOR cx
SCAN
    SCATTER FIELDS &lcStr TO aRecn
    INSERT INTO bx2 (xh) VALUES (RECNO("cx"))
    LOCAL aa[1, ALEN(laStr)]
    FOR lnj = 1 TO ALEN(laStr)
        IF aRecc[lnj] = aRecn[lnj]
            EXIT 
        ELSE
            aa[1, lnj] = aRecn[lnj]
        ENDIF 
    ENDFOR
    IF lnj > ALEN(laStr)
        REPLACE FROM ARRAY aa FIELDS &lcStr IN bx2
    ENDIF 
ENDSCAN
SELECT bx2
BROWSE

速度可能要快点

坚守VFP最后的阵地
2020-08-21 13:24
厨师王德榜
Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18
等 级:贵宾
威 望:199
帖 子:992
专家分:4966
注 册:2013-2-16
收藏
得分:0 
回复 5楼 yd1954
先说说结果是不是你想要的?
2020-08-21 15:13
yd1954
Rank: 2
来 自:辽宁沈阳
等 级:论坛游民
帖 子:143
专家分:21
注 册:2016-7-1
收藏
得分:0 
回复 13楼 厨师王德榜
是。
是否可以将C盘下的路径,改为我的数据库的路径。
2020-08-21 15:25
yd1954
Rank: 2
来 自:辽宁沈阳
等 级:论坛游民
帖 子:143
专家分:21
注 册:2016-7-1
收藏
得分:0 
回复 13楼 厨师王德榜
非常感谢各位的帮助。
从我在论坛求助以来,都是几位老师在帮助我。特别是吹水佬老师、sdta老师。
这次尤为感动的是,sdta老师极有耐心的几次修改代码。
再次感谢各位老师!
2020-08-21 17:20
厨师王德榜
Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18
等 级:贵宾
威 望:199
帖 子:992
专家分:4966
注 册:2013-2-16
收藏
得分:0 
回复 14楼 yd1954
可以自己改的, 我是为了测试方便,顺手丢在桌面上的,你自己当然可以根据你的实际情况来改.
2020-08-24 17:24
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用厨师王德榜在2020-8-24 17:24:51的发言:

可以自己改的, 我是为了测试方便,顺手丢在桌面上的,你自己当然可以根据你的实际情况来改.

这样的动作是很潇洒的啊

坚守VFP最后的阵地
2020-08-24 18:13
快速回复:求2个表的字段比较
数据加载中...
 
   



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

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