我在备份时用到了如下代码:

IF xx=6
select &xmn
fil=putfile("导出文件名:" ,left(alltrim(thisform.text1.value),6)+'&xmn'+dtos(date()),"dbf;XLS;dbf;TXT")
copy to &fil for &xmm>=thisform.text1.value AND &xmm<=thisform.text2.value
DELETE from &xmn where &xmm>=thisform.text1.value AND &xmm<=thisform.text2.value
thisform.command3.Enabled= .F.
else
xx=7
RETURN
ENDIF

在编译前运行表单完全正常, 没有提示任错误, 可为什么连编后, 总有错误提示:命令中含有不能识别的短语或关键字。

问题出在哪里呢?请帮助

DELETE for &xmn where &xmm>=thisform.text1.value AND &xmm<=thisform.text2.value

[此贴子已经被作者于2006-8-16 11:31:55编辑过]

谢谢
可是不行呀,
原来用DELETE for 表单运行时提示:不能识别的短语呀,
用DELETE from在表单中运行没问题,却在连编后提示:不能识别的短语呀,

DELETE for &xmn and &xmm>=thisform.text1.value AND &xmm<=thisform.text2.value

[此贴子已经被作者于2006-8-16 11:32:28编辑过]

不太懂了
&xmn 是数据表

&xmm是表里的学号字段

我的原来的意思是从表中删除满足条件(介于两学号间)的记录

用DELETE for &xmn and &xmm>=thisform.text1.value AND &xmm<=thisform.text2.value 怎么理解呀?

我是不是太笨了?不好意思

看起来下面两命令都没有问题,但第1条命令出错的可能性更大
copy to &fil for &xmm>=thisform.text1.value AND &xmm<=thisform.text2.value
DELETE from &xmn where &xmm>=thisform.text1.value AND &xmm<=thisform.text2.value

我又重新运行了一下表单和连编后的程序,
上面的两个命令在表单中运行通过,连编后的程序运行出错
出错代号为1,提示:错误信息: 文件 'c:\学生管理\j2d04a学籍20060816.dbf' 不存在。

看来是copy to 语句有问题了,可怎么改呢?我再试试

非常感谢你

以下的语句好象也存在问题
fil=putfile("导出文件名:" ,left(alltrim(thisform.text1.value),6)+'&xmn'+dtos(date()),"dbf;XLS;dbf;TXT")
可不可以修改为
fil=gutfile("导出文件名:" ,left(alltrim(thisform.text1.value),6)+'&xmn'+dtos(date()),"dbf")

问题看来是在copy to 语句

在表单中运行,且文件保存在默认目录下时,保存一切正常,可如果我换一下保存路径,问题就出现了:不能识别的短语和关键字!!

晕了......

这是怎么回事呀? !!

fil是一个保存文件名(含路径)的字符变量,中间也许会存在空格,应该这样
copy to "&fil" for &xmm>=thisform.text1.value AND &xmm<=thisform.text2.value