检查 vfp 中不同 table 中的 2 个相同数据，因此我可以将其放入 IF 语句中

Question

如果 table_A.firstname 在 table_B.firstname 中有完全相同的数据，则会出现一个消息框。我想知道它的代码是什么？

Answer 1

这将找到 table_B.firstname

中的所有重复项

close all
set talk off

use table_a in 0
use table_b in 0

sele table_a
scat memv

do while !eof()
    sele table_b
    scan for firstname=m.firstname
        wait wind allt(m.firstname)+" RecNo="+allt(str(recno()))
    endscan
    sele table_a
    if !eof()
        skip
        scat memv
    endif
enddo
close all

如果要使用If..Else...（只需要在Do while循环中修改）

do while !eof()
    sele table_b
    go top
    locate for firstname=m.firstname
    if found()
        wait wind allt(m.firstname)+" RecNo="+allt(str(recno()))
    endif
    sele table_a
    if !eof()
        skip
        scat memv
    endif
enddo

Answer 2

就这么简单：

if trim(table_A.firstname) == trim(table_B.firstname)

Answer 3

由于您在两个表中说了相同的数据，因此您需要将一个源记录中的每个字段与目标中的所有记录与它们各自的字段进行比较。
（假设两个表的数据结构在各个方面都相同）

CLOSE ALL  
CLEAR ALL  
RELEASE ALL  

SET TALK OFF  

SELECT 1
USE file1
GO TOP

SELECT 2
USE file2

DO WHILE NOT EOF()

    SELECT 1

    unq_found = 0

    SELECT 2
    GO TOP

    DO WHILE NOT EOF()

        SELECT 2

        for ix = 1 to AFIELDS(TEST)

            SRC_FLD = "A." + ALLTRIM(FIELD(IX))
            TRG_FLD = "B." + ALLTRIM(FIELD(IX))

            IF ALLTRIM(&SRC_FLD) <> ALLTRIM(&TRG_FLD)
                unq_found = 1
                EXIT for
            ENDIF

        ENDFOR

        IF unq_found = 0

            @00,00 CLEAR
            @10,10 SAY "SAME DATA:- " 
            @12,10 SAY "RECORD NUMBER:-" + STR ( RECNO() ) 
            @18,10 SAY "PRESS A KEY TO CONTINUE"
            READ

        ENDIF

        SKIP

    ENDDO


    SELECT 1
    skip

ENDDO

检查 vfp 中不同 table 中的 2 个相同数据，因此我可以将其放入 IF 语句中

Check 2 same data in different table in vfp, so i can put it in an IF statement

database

visual-foxpro

foxpro