用此命令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了吗？

附上代码，请行家指教。为什么会提示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表没打开
*******
sele 1
use xktjk
SELECT xktjk &&打开并追加记录

还是照旧提示

把你的数据表上传，让大家给你看看

在CREATE dbf xktjk ......跟着就
SELECT xktjk
APPEND FROM ......
这样试试应该就知道问题所在

追加数据是在循环中，否则每一次循环要建立一个库，再追加数据，肯定是不行的。
我预先放入一只空的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
你的代码中出现了2个形似的表名称  请你自己检查一下  用的地方对不对