CLOSE ALL
WAIT "数据正在导入" window nowait
RUN /n7 WinRAR.exe x -ibck -r -o+ -y sbsj\sbsj.rar jssj\
COPY FILE sbsj\xzsz.dbf TO jssj\xzsz.dbf
USE jssj\xzsz
dimen a1(1)
COPY TO ARRAY ai field mc
CLOSE ALL
USE xzsz EXCLUSIVE
DELETE from xzsz where mc=ALLTRIM("a1")
DELETE FROM xzsz WHERE EMPTY(mc)
PACK
APPEND FROM jssj\xzsz
WAIT "正在接收数据" window nowait
USE date\hz EXCLUSIVE
DELETE from hz where 乡镇信息=ALLTRIM("a1")
DELETE FROM hz WHERE EMPTY(乡镇信息)
PACK
APPEND FROM jssj\date\hz
CLOSE ALL
USE date\cy EXCLUSIVE
DELETE from cy where 乡镇信息=ALLTRIM("a1")
DELETE FROM cy WHERE EMPTY(乡镇信息)
PACK
APPEND FROM jssj\date\cy
CLOSE ALL
USE date\jhsy EXCLUSIVE
DELETE from jhsy where 乡镇信息=ALLTRIM("a1")
DELETE FROM jhsy WHERE EMPTY(乡镇信息)
PACK
APPEND FROM jssj\date\jhsy
CLOSE ALL
USE date\sq EXCLUSIVE
DELETE from sq where 乡镇信息=ALLTRIM("a1")
DELETE FROM sq WHERE EMPTY(乡镇信息)
PACK
APPEND FROM jssj\date\sq
CLOSE ALL
USE date\ykt EXCLUSIVE
DELETE from ykt where 乡镇信息=ALLTRIM("a1")
DELETE FROM ykt WHERE EMPTY(乡镇信息)
PACK
APPEND FROM jssj\date\ykt
CLOSE ALL
USE date\xx1 EXCLUSIVE
DELETE from xx1 where 乡镇信息=ALLTRIM("a1")
DELETE FROM xx1 WHERE EMPTY(乡镇信息)
PACK
APPEND FROM jssj\date\xx1
CLOSE ALL
USE date\xx2 EXCLUSIVE
DELETE from xx2 where 乡镇信息=ALLTRIM("a1")
DELETE FROM xx2 WHERE EMPTY(乡镇信息)
PACK
APPEND FROM jssj\date\xx2
CLOSE ALL
USE date\xx3 EXCLUSIVE
DELETE from xx3 where 乡镇信息=ALLTRIM("a1")
DELETE FROM xx3 WHERE EMPTY(乡镇信息)
PACK
APPEND FROM jssj\date\xx3
CLOSE ALL
USE date\gwkf1 EXCLUSIVE
DELETE from gwkf1 where 乡镇信息=ALLTRIM("a1")
DELETE FROM gwkf1 WHERE EMPTY(乡镇信息)
PACK
APPEND FROM jssj\date\gwkf1
SET TALK OFF
SET SAFETY OFF
CLOSE ALL
WAIT clear
SET TALK ON
SET SAFETY ON
WAIT window"接收成功"timeout 1
以上是一段接收数据的程序，请各位教师看看这什么，jkt等表不能联系数据库呀原因出在什么地方呀