该程序设计的目的是将同样结构的两表去除重复记录之后合并。其中表1与表2结构相同，有重复记录；表0结构另类，不能与其他两表合并。

[ 本帖最后由 cluna2013 于 2015-4-13 10:35 编辑 ]

楼主真会过日子

"相同内容"是指什么内容相同？

准确说是重复记录。

那个G型字段记录的内容怎样判断是否相同？

由程序自动判断。浏览只是整体看看，不作任何修改、删减。

[ 本帖最后由 cluna2013 于 2015-4-13 10:51 编辑 ]

程序怎样获取那个G型字段记录的内容？

在打开表1、表2之后，拷贝表1结构生成表3；
与表1表2对应，生成两个临时表Temp1.dbf、Temp2.dbf；
打开表3，从临时表录入全部记录；
删除临时表；
用程序自动删除重复数据。
主要代码：
* Command1-Click
CLOSE DATABASES
SELECT 1
gcTable=GETFILE('DBF')
USE (gcTable) ALIAS aa
thisform.grid1.RecordSource = [aa]
thisform.grid1.SetFocus
.T.
* Command2-Click
SELECT 2
gcTable1=GETFILE('DBF')
SELECT 1
IF gcTable1=[aa]
    RETURN
ELSE
    SELECT 2
    gcTable=gcTable1
ENDIF
USE (gcTable) ALIAS bb
thisform.grid2.RecordSource = [bb]
thisform.grid2.SetFocus
.F.
* Command3-Click
SELECT 1
COPY TO Temp1
COPY STRUCTURE TO 3
SELECT 2
COPY TO Temp2
SELECT 1
SELECT 3
USE 3
APPEND FROM Temp1
APPEND FROM Temp2
ERASE Temp1.*
ERASE Temp2.*
I=1
DO WHILE I<=RECCOUNT()
    GO TOP
    SKIP I-1
        IF !DELETED()
            X=FIELD(1)
            XX=&X
            Y=FIELD(2)
            YY=&Y
            DELETE ALL FOR RECNO()>I AND &X=XX AND &Y=YY
        ENDIF
    I=I+1
ENDDO
PACK
CLOSE DATABASES
USE 3 ALIAS cc
thisform.grid1.RecordSource = [cc]
thisform.grid1.SetFocus
.F.
.F.

DELETE ALL FOR RECNO()>I AND &X=XX AND &Y=YY
只是删除NO和NAME相同的记录，是吧？

SQL命令不是更简单吗