用此命令CREATE dbf xktjk (bmd c(5),dj c(1),km c(2),rs n(4))建立xktjk.dbf 后，要追加记录时但提示xktjk.dbf找不到？

[此贴子已经被作者于2015-12-1 08:57编辑过]

附上代码，请行家指教。为什么会提示xktjk.dbf不存在？

SET TALK OFF  &&关闭命令显示
SET SAFE OFF
y=MESSAGEBOX("必须准备空库：xkcjk.dbf!如果没有，请退出重新加入!",4+64,"提醒:是否符合要求！")
IF y=6
sjk=GETFILE('DBF','选择数据库','',0,'查找下发的学业考成绩库')
USE xkcjk
ZAP
APPEND FROM &sjk.
CREATE dbf xktjk (bmd c(5),dj c(1),km c(2),rs n(4))   &&建立表

lcs="yw,sx,yy,zz,ls,dl,wl,hx,sw,js"
nrow=Alines(cstr,Strtran(lcs,",",Chr(13)+Chr(10)))
for i=1 to nrow
select bmd,&cstr(i) as dj,count(*) as rs,'&cstr(i)' as km from xkcjk where &cstr(i)<>' 'group by bmd,&cstr(i) into table &cstr(i)

SELECT xktjk &&打开并追加记录
APPEND FROM &cstr(i)
endfor

还是照旧提示

追加数据是在循环中，否则每一次循环要建立一个库，再追加数据，肯定是不行的。
我预先放入一只空的xktjk,就不会出现提示，难道在代码中空建一只空库就出现找不到xktjk.dbf?
下面是我预先建立并放入一只空的xktjk的代码：它能顺利进行

SET TALK OFF  &&关闭命令显示
SET SAFE OFF



y=MESSAGEBOX("必须准备二只空库：xktjk.dbf与xkcjk.dbf!如果没有，请退出重新加入!",4+64,"提醒:是否符合要求！")
IF y=6
sjk=GETFILE('DBF','选择数据库','',0,'查找省发的学考成绩库')

USE xkcjk
ZAP
APPEND FROM &sjk.

*CREATE dbf xktjk  (bmd c(5),dj c(1),km c(2),rs n(4))&&我想在代码中建立
USE xktjk &&&这是预先建好的空库
zap

lcs="yw,sx,yy,zz,ls,dl,wl,hx,sw,js"
nrow=Alines(cstr,Strtran(lcs,",",Chr(13)+Chr(10)))
for i=1 to nrow



select bmd,&cstr(i) as dj,count(*) as rs,'&cstr(i)' as km from xkcjk where &cstr(i)<>' 'group by bmd,&cstr(i) into table &cstr(i)

SELECT xktjk
APPEND FROM &cstr(i)
endfor

[此贴子已经被作者于2015-12-1 10:38编辑过]

有二只，一只是xkcjk(这只是预先建好的),另一只是xktjk想临时建立，就是临时建立的找不到？

接受你的建议。现在成功了，也不知何故？改为建立临时库也成功了。
CLEAR
SET TALK OFF  &&关闭命令显示
SET SAFE OFF
y=MESSAGEBOX("必须准备一只空库：xkcjk.dbf!如果没有，请退出重新加入!",4+64,"提醒:是否符合要求！")
IF y=6
sjk=GETFILE('DBF','选择数据库','',0,'查找省发的学考成绩库')

USE xkcjk
ZAP
APPEND FROM &sjk.

CREATE cursor xktjk  (bmd c(5),dj c(1),rs n(4),km c(2))&&建立临时库，省得代码结束后还要删除xkjtk.dbf
*CREATE dbf xktjk  (bmd c(5),dj c(1),rs n(4),km c(2))
*USE xktjk

lcs="yw,sx,yy,zz,ls,dl,wl,hx,sw,js"
nrow=Alines(cstr,Strtran(lcs,",",Chr(13)+Chr(10)))
for i=1 to nrow

select bmd,&cstr(i) as dj,count(*) as rs,'&cstr(i)' as km from xkcjk where &cstr(i)<>' 'group by bmd,&cstr(i) into table &cstr(i)

SELECT xktjk

APPEND FROM &cstr(i)
*APPEND FROM DBF(cstr(i)) &&另一种形式
endfor

SELECT bmd,KM,MAX(IIF(DJ=='A',RS,0000)) AS A,MAX(IIF(DJ=='B',RS,000)) AS B,MAX(IIF(DJ=='C',RS,0000)) AS C,MAX(IIF(DJ=='D',RS,000)) AS D,MAX(IIF(DJ=='E',RS,000)) AS E,MAX(IIF(DJ=='A',RS,0000))+MAX(IIF(DJ=='B',RS,000))+MAX(IIF(DJ=='C',RS,0000))+MAX(IIF(DJ=='D',RS,000))+MAX(IIF(DJ=='E',RS,000))AS TOT FROM  xktjk GROUP BY BMD,KM ORDER BY km,bmd INTO TABLE XKCJTJK
COPY TO XKCJTJK TYPE XL5

WAIT "学考成绩统计库二种格式(XKCJTJK.DBF与xkcjtjk.xls)生成完毕!"  WINDOW TIMEOUT 5  AT SROWS()/2,(SCOLS()/4)
ELSE
RETURN
ENDIF
CLEAR ALL
DELETE FILE  ls1.*
DELETE FILE ??.dbf
*DELETE FILE xktjk.dbf

SET TALK On
SET SAFE On

?dbf(cstr(i)) 能产生带有路径的的文件名
?&cstr(i)要改为--->?'&cstr(i)'才出现不带路径的文件名

不清楚是什么意思?