求助：如何查找到两张表中相同字段的相同记录？

yilanceeee 2021-05-15 08:49:23

大神们，求助啊！两个表中查找相同的数据——姓名！
两个表格，一个是学生表，一个是毕业生总表
学生表有学生己经毕业，就会在毕业生表中体现出来

现在我需要在毕业生总表中找到所有学生表中相同的姓名的学生

现在我做了一个表单

local a,b,i,num
sele 1
b=thisform.text1.value
use &b alias bb

sele 2
a=thisform.text2.value
use &a alias aa

i=0
j=0
sele 2
do while .not.eof()
ly=xm
sele 1
locate for xm=ly
if found()
repl bb.序号 with ALLTRIM(bb.序号)+ALLTRIM(aa.序号)
i=i+1
else
sele 2
repl 标记 with '没有'

j=j+1
endif
sele 2
skip
enddo
sele 1
use
sele 2
use
?i
但是这样的只能查到总表不重名的学生
比如毕业生总表中有王强这样好多条记录重名的的，就不能把所有的王强都找出来
这样的循环只能找到第一个王强
大神们可否帮忙修改一下
非常感谢！

...全文

383 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

lygcw9602 2024-02-27

打赏
举报

姓名可以重复，但学号不会重复

weixin_42060926 2021-06-13

打赏
举报

一个命令就可以

select 学生表.姓名,学生表.班级 from 学生表,毕业生总表 WHERE 学生表.姓名=毕业生总表.姓名 and 学生表.出生日期=毕业生总表.出生日期

yilanceeee 2021-05-17

打赏
举报

按着孤独兄弟的说的，更改后的语句分享给大家，很好用，希望有相似问题的网友可以借鉴一下再次感谢一下楼上的孤独兄弟！！！

local a,b,i,num
sele 1
b=thisform.text1.value
use &b alias bb


sele 2
a=thisform.text2.value
use &a alias aa


i=0
j=0
sele 2
do while .not.eof()
   ly=xm
   lq=csr
   sele 1
   locate for xm=ly .and. lq=csr
   if found()
        repl bb.序号 with ALLTRIM(bb.序号)+','+ALLTRIM(aa.序号)
        i=i+1
    else 
        sele 2
        repl 标记 with '没有' 
       
        j=j+1
   endif
   sele 2
  skip 
  enddo  
  sele 1
  use
  sele 2
  use
  ?i

yilanceeee 2021-05-17

打赏
举报

引用 9 楼独孤兄弟的回复:

[quote=引用 8 楼 yilanceeee 的回复:][quote=引用 7 楼 yilanceeee 的回复:][quote=引用 5 楼独孤兄弟的回复:]加上CONTINUE命令

我自己捯饬了一下，可以使用了，非常感谢！可是又出现一个问题，就是名字一样后，我还要比较一下出生日期是否一样，如果一样才表明是同一个人这样如何更改一下表单里的命令[/quote] 用了后检查了一下，还是不行，有些错误出现，不能完全比对出来[/quote] 试试： ly=xm 前或后加上 rq=csrq （假设表中出生日期字段名为csrq） locate for xm=ly 改为 locate for xm=ly .and. rq=csrq[/quote] 按您说的更改后使用了一个非常好用！完全没有问题了！感谢感谢！

独孤兄弟 2021-05-16

打赏
举报

引用 8 楼 yilanceeee 的回复:

[quote=引用 7 楼 yilanceeee 的回复:][quote=引用 5 楼独孤兄弟的回复:]加上CONTINUE命令

我自己捯饬了一下，可以使用了，非常感谢！

可是又出现一个问题，就是名字一样后，我还要比较一下出生日期是否一样，如果一样才表明是同一个人
这样如何更改一下表单里的命令[/quote]
用了后检查了一下，还是不行，有些错误出现，不能完全比对出来[/quote]

试试：
ly=xm 前或后加上 rq=csrq （假设表中出生日期字段名为csrq）
locate for xm=ly 改为 locate for xm=ly .and. rq=csrq

yilanceeee 2021-05-15