谁能帮我合并表

CLOSE ALL
CLEAR MEMORY
CLEAR
DO WHILE .t.
lujingt=GETFILE('dbf','需要处理的表')
h=MESSAGEBOX('你要打开的表是:'+CHR(13)+CHR(13)+(lujingt)+CHR(13)+CHR(13)+;
'路径和文件名都正确 是'+CHR(13)+'重新输入'+SPACE(14)+'否',4+32)
IF h=6
IF EMPTY(lujingt)=.f.
EXIT
ENDIF
ENDIF
ENDDO
SELECT 0
USE (lujingt) IN 0
cunchut=ALIAS()+'vf'
sele 资产名称,地点,sum(合同金额) as 合同金额,sum(分摊金额) as 分摊金额,sum(合计金额) as 合计金额,sum(数量) as 数量;
from (lujingt) group by 资产名称,地点,合同金额,分摊金额,合计金额 into table lslujingt
DO WHILE .t.
lujingh=PUTFILE('将表保存在：',cunchut,'dbf')
h=MESSAGEBOX('你要保存的表是:'+CHR(13)+CHR(13)+(lujingh)+CHR(13)+CHR(13)+;
'路径和文件名都正确 是'+CHR(13)+'重新输入'+SPACE(14)+'否',4+32)
IF h=6
IF EMPTY(lujingh)=.f.
EXIT