直接将 IF FILE("&_rb")=.F.  改为 IF FILE(_rb)=.F. 测试一下，看一看结果。

IF FILE("&_rb")=.F.  改为 IF FILE(_rb)=.F. 以后，这里就正常了，
但后面的程序有很多类似下面这样的内容，如果不修改，仍然报错，
_a="aaaa"
?"ccc &_a ccc"
改成下面内容后才不报错，
_a="aaaa"
?"ccc "+_a+" ccc"
程序里面没有&后，可以正常运行。
只是很奇怪，为什么程序大了以后，使用&会报错。

[此贴子已经被作者于2017-10-2 17:25编辑过]

会报错？
提示的错误信息是什么？

这与程序大小无关，是宏替换的规律尚未完全了解。

1、2都报错如图，3正常

不知道是什么原因，我把其中一组单独作为程序运行不报错。单从程序中的语句分析应该没有语法错误。
SET TALK OFF
CLOSE ALL
_rq= val(dtos(date()-1))
_yyyy=LEFT(ALLTRIM(STR(_rq)),4)
_yyyymm=LEFT(ALLTRIM(STR(_rq)),6)
_yyyymmdd=LEFT(ALLTRIM(STR(_rq)),8)
_mmdd=SUBSTR(allt(str(_rq)),5,4)
*************************------------------------*************************
*************************------检查日报文件------*************************
*************************------------------------*************************
USE yyb ALIAS yyb IN 0
_rb=_yyyy+"_日报.dbf"
IF !FILE("&_rb")   &&如果日报文件不存在，则新建日报文件
  CREATE DBF &_rb (品种 C(10),成交量 N(20,2),日期 N(8),项目 C(30),d_分公司 C(30),m_分公司 C(30),y_分公司 C(30))
  USE
ENDIF
USE &_rb ALIAS rb IN 0
SELECT yyb
FOR _i=1 TO RECCOUNT()  &&日报文件与yyb.dbf对比，如缺少营业部字段，则添加
  GOTO _i
  SELECT rb
  IF FSIZE("d_"+ALLTRIM(yyb->brhid))=0
    ALTER TABLE rb ADD ("d_"+ALLTRIM(yyb->brhid)) C(30)
    ALTER TABLE rb ADD ("m_"+ALLTRIM(yyb->brhid)) C(30)
    ALTER TABLE rb ADD ("y_"+ALLTRIM(yyb->brhid)) C(30)
  ENDIF
  SELECT yyb
ENDFOR
***************
*************************------------------------*************************
*************************------检查日报文件------*************************
*************************------------------------*************************
RETURN

[此贴子已经被作者于2017-10-9 14:58编辑过]

首先，楼主的&代换问题可以解决。把IF FILE("&_rb")=.f.   &&如果日报文件不存在，则新建日报文件改为
IF FILE([_rb])=.f.   &&如果日报文件不存在，则新建日报文件就可以了，只是楼主的程序N多个地方没有打开这个新建的日报文件。
还有一点是看不懂楼主为什么要反复的创建这个日报文件。

后面的程序需要连接SQL服务器才能运行，所以我上传的只是用来做测试用的

从本质上看，楼主的问题是一个宏替换如何使用的问题。请看下面的几个例子：

_rb = "2017_日报.dbf"
if file("&_rb") = .f.    && 语句1
    ? "ok1"
endif
if !file("&_rb")    && 语句2
    ? "ok2"
endif
if !file(_rb)       && 语句3
    ? "ok3"
endif
if !file((_rb))     && 语句4
    ? "ok4"
endif

上面的代码中，只有“语句3”和“语句4”可以正常运行。在FILE()函数中不支持宏替换，这可能是 VFP 的一个 Bug。
若变量 _rb 中含有带空格的文件夹名，如：_rb = "c:\my file\2017_日报.dbf"，则最好使用“语句4”格式，也就是用名称表达式代替宏替换。我在64位WIN7+VFP9 SP2 下，使用“语句3”也可以测试通过，但在其他系统下可能有问题，还未测试。

谢谢老师！