标题:查两表不同记录
只看楼主
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
得分:0 
回复 10楼 吹水佬
谢谢你,是想看到这个结果
2022-07-08 21:34
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
程序代码:
CLEAR
SELECT * FROM 表1 INTO ARRAY a1
SELECT * FROM 表2 INTO ARRAY a2
FOR ln = 1 TO ALEN(a1, 1)
    IF TRANSFORM(a1[ln, 1]) + a1[ln,2] != TRANSFORM(a2[ln, 1]) + a2[ln,2]
        ?ln, a1[ln, 1], a1[ln, 2], a2[ln, 1], a2[ln, 2]
    ENDIF 
ENDFOR

坚守VFP最后的阵地
2022-07-08 21:34
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 

坚守VFP最后的阵地
2022-07-08 21:37
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
得分:0 
回复 13楼 sdta
谢谢你! 能用 .dbf表格形式出来吗?

[此贴子已经被作者于2022-7-8 21:47编辑过]

2022-07-08 21:43
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:10 
SELECT *,RECNO() sx1 FROM 表1 INTO CURSOR t1
SELECT *,RECNO() sx2 FROM 表2 INTO CURSOR t2
SELECT t1.编号,t1.姓名,t2.编号 bh,t2.姓名 xm FROM t1, t2 WHERE sx1=sx2 AND TRANSFORM(t1.编号)+t1.姓名 != TRANSFORM(t2.编号)+t2.姓名 into cursor t3
browse

坚守VFP最后的阵地
2022-07-08 21:47
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:10 

程序代码:
USE 表1 IN 0
USE 表2 IN 0
SELECT 表1
SET RELATION TO RECNO() INTO "表2"
BROWSE FIELDS 表1.编号, 表1.姓名, 表2.编号, 表2.姓名 FOR !((TRANSFORM(表1.编号)+表1.姓名)==(TRANSFORM(表2.编号)+表2.姓名))

2022-07-08 21:54
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
得分:0 
回复 15楼 sdta
谢谢你! 麻烦了.
2022-07-08 22:09
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
得分:0 
回复 16楼 吹水佬
谢谢你!,麻烦了
2022-07-08 22:10
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
得分:0 
两次感谢二位版主!
2022-07-08 22:11
dbf永动机
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2022-8-30
得分:0 
sele * from a表 where allt(编号) not in (sele allt(编号) from b表)
2022-09-06 09:33



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




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

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