表单上的Grid1控件显示DBF文件的问题？？

自己编程时发现一个问题，项目连编为exe文件后，如果数据表文件DBF存放的文件夹的名称是“连续的”，意思是中间没有空格分隔的文件夹名，打开dbf文件，表单上的Grid1控件显示DBF文件是正常的，如果文件夹名称中间有空格，
   例如常见的：Program Files，或是：“VFP 数据”，数据表文件DBF存放在其中，表单上的Grid1控件显示DBF文件就不能显示出来，依然是个空白的区域，不能显示出数据，但是相关的数据表的操作是可以完成的，如何解决此种问题？？？？

设置.Grid1.RecordSourceType为1(别名)

先生成一个查询表，再用查询表显示

还是无法解决问题啊！！！！

表单上的“打开”按钮中的命令如下：
use ?
if used()=.F.
   Messagebox("数据表未打开！",16,"提示")
else
    thisform.grid1.recordsource=DBF()
    thisform.label1.Caption="浏览数据表："
    thisform.label2.Caption=alltrim(dbf())
endif

按下“打开”按钮时：1、如果数据表存放的文件夹的名称中未夹杂空格符，grid1控件可以正常显示数据表的内容；
                  2、如果数据表存放的文件夹的名称中夹杂空格符，如Program Files的情况，grid1控件不能正常显示数据表的内容，直接不显示出数据表的内容，表现为一个空白的表格区域，但是对表格的操作是可以正常到操作！！

aa=GETFILE()
SELECT * FROM '&aa' INTO TABLE pp
thisform.mygrid1.RecordSource="pp"
thisform.mygrid1.RecordSourcetype= 1
thisform.mygrid1.Refresh

在主程序中加入下面一段代码，然后连编就行，注意后面的宏替换是用引号括起来的，目的是为了文件夹名中有空格也能正确执行。经验啊，绝对没错。


*******设置隐含路径，即相对路径******
cxlj=SYS(16)
FOR jsq=1 TO LEN(cxlj)
   cxzf=LEFT(RIGHT(cxlj,jsq),1)
   IF cxzf='\'
       cxlj=STUFF(cxlj,LEN(cxlj)-jsq+1,jsq,''
       EXIT
   ENDIF
ENDFOR
SET DEFAULT TO "&cxlj"　　　　　　&&设置相对路径
set path to data\　　　　　　　　　&&默认搜索路径

如表路径为：C：\Program Files\aa.dbf

path_bb = 'C：\Program Files\aa.dbf'
use (path_bb) alias aa in 0
this.recordsource="aa"

我也遇到过这个问题，好像VF有时沿用DOS命令的格式，命令中不能有空格，否则会出错。例如将文件保存取某路径下时，路径中有空格就会出错。
我试过许多方法，不能解决，只有在碰到这类问题时，不直接使用系统函数得到的路径，而使用明确不含空格的路径。

使用szy345的方法可以解决问题，谢谢！！