我制作 了一张表单，上面有一个文本框，一个“来源于”按钮，一个确定按钮。我想点“来源于”按钮，找到需要导入的电子表格文件，里面有几张表，我想循环连续把它们一一对应导入到每张现有的.DBF表中。代码如下：
SET SAFETY off
 aaa=thisform.text1.Value
IF EMPTY(aaa)
 MESSAGEBOX("请选择要导入的文件",0,"杨军提示")
 ELSE
***************下面看看有几张表
a1=SUBSTR(FILETOSTR(aaa),2000,1600)
c1 = CHR(0)+CHR(0)+CHR(0)+CHR(0)+CHR(6)+CHR(0)
m=OCCURS(c1,a1)
 FOR  i = 1 TO m
 S=ALLTRIM(STR(i))
 IF FILE("cjb&s..dbf")=.t.
 B="Sheet"+alltrim(str(i))
*******************下面就是导入语句
IMPORT FROM （aaa） TYPE XL8 SHEET &B
copy to arra cj&s  *****自制到数组
 use  cjb&s 
 DELETE ALL
 pack
   APPEND FROM arra cj&s
  GO top
  DELETE 
  PACK
  ENDIF
   ENDFOR
  MESSAGEBOX("你要统计的所有年级的考试成绩导入完毕",0,"杨军提示")
ENDIF

但是就是导不进去，程序没有出现任何错误提示。
请高手指点。