所有的查询功能突然不能用了

[renr]

运行程序后，所有的查询全不能用了，都提示命令中含有不能识别的短语或关键字，不知道怎么回事啊，请高手指教。以下是代码
if thisform.check1.value=1
if !empty(thisform.edit1.value)
set exact on
set ansi on
set safety off
store thisform.edit1.value to lca
a='学号,姓名,性别,民族,政治面貌,出生年月,婚否,所属院系,专业,研究方向,导师姓名,宿舍,联系电话,家庭住址,身份证,照片,应修学分'
b='学生信息'+'.'+thisform.combo1.value
c=thisform.combo2.value
d= b+ c + 'lca'
e = '学生信息'
f=lcDirectory +'\数据库\zl5'
lcg ='select' + ' ' + a + ' ' + 'from' + ' ' + e + ' ' + 'where' + ' ' + d ;
+ ' '+ 'order by 学号' +' ' + 'into dbf '+' '+f
&lcg
else
messagebox("不能为空" + chr(7) +chr(13)+"请重新输入",0+48+0,"警告信息")
return
endif

else
if thisform.check1.value=0
if thisform.optiongroup3.value=1
set exact on
set ansi on
else
if thisform.optiongroup3.value=2
set exact off
set ansi off
endif
endif
set safety off
if thisform.optiongroup1.value=1
if !empty(thisform.edit1.value)
lctype=type('学生信息' + '.'+thisform.combo1.value)
do case
case lctype='D'
store ctod(thisform.edit1.value) to lca
case lctype='N'
store val(thisform.edit1.value) to lca
case lctype='C'
store thisform.edit1.value to lca
endcase
a='学号,姓名,性别,民族,政治面貌,出生年月,婚否,所属院系,专业,研究方向,导师姓名,宿舍,联系电话,家庭住址,身份证,应修学分'
b='学生信息'+'.'+thisform.combo1.value
c=thisform.combo2.value
d= b+ c + 'lca'
e = '学生信息'
f=lcDirectory +'\数据库\zl1'
lcg ='select' + ' ' + a + ' ' + 'from' + ' ' + e + ' ' + 'where' + ' ' + d ;
+ ' '+ 'order by 学号' +' ' + 'into dbf'+' '+ f
&lcg
else
messagebox("不能为空" + chr(7) +chr(13)+"请重新输入",0+48+0,"警告信息")
return
endif
else
if thisform.optiongroup1.value=2
if !empty(thisform.edit1.value).and.!empty(thisform.edit2.value)
lctype=type('学生信息' + '.'+thisform.combo1.value)
lctype1=type('学生信息'+'.'+thisform.combo3.value)
do case
case lctype='D'
store ctod(thisform.edit1.value) to lca
case lctype='N'
store val(thisform.edit1.value) to lca
case lctype='C'
store thisform.edit1.value to lca
endcase
do case
case lctype1='D'
store ctod(thisform.edit2.value) to lcb
case lctype1='N'
store val(thisform.edit2.value) to lcb
case lctype1='C'
store thisform.edit2.value to lcb
endcase
a='学号,姓名,性别,民族,政治面貌,出生年月,婚否,所属院系,专业,研究方向,导师姓名,宿舍,联系电话,家庭住址,身份证,应修学分'
b = '学生信息'
c=b+'.'+thisform.combo1.value
d=b+'.'+thisform.combo3.value
e=thisform.combo2.value
f=thisform.combo4.value
if thisform.optiongroup2.value=1
g='and'
else
g='or'
endif
h= c+ e + 'lca'+' '+g+' '+d+f+'lcb'
k=lcDirectory +'\数据库\zl1'
lcg ='select' + ' ' + a + ' ' + 'from' + ' ' + b + ' ' + 'where' + ' ' + h + ' '+ 'order by 学号' +' ' + 'into dbf '+' '+k
&lcg
else
messagebox("不能为空" + chr(7) +chr(13)+"请重新输入",0+48+0,"警告信息")
return
endif
endif
endif
endif
endif
thisform.edit1.value=''
thisform.edit2.value=''
thisform.refresh
set safety on

[renr]

我把它放到根目录下试了试，居然没有问题了，原来不能有空格，居然还有这样的限制。谢谢高手的指教

[十豆三]

可以有空格，只不过你的程序不可以。

加上引号或括号即可。

例如：

USE C:\A B\FILENAME.DBF &&报错
改为：
USE "C:\A B\FILENAME.DBF"
或
USE (C:\A B\FILENAME.DBF)

[十豆三]

那行呀

[renr]

那是哪的问题呢？查询的界面我从来没有动过，数据表我也看了，应该也没有问题，但是以前可以用，现在却不能了。

[renr]

我在www.access911.net/csdn上传了源程序，名字是研究生管理数据库。麻烦高手给帮着找找问题吧

[十豆三]

是不是你的软件安装位置的路径带空格