cRptFile = [AAA.FRX]

USE (cRptFile)

LOCATE

REPLACE Expr WITH "", Tag WITH "", Tag2 WITH ""

*!* Above line releases and following inserted

*!* to preserve the Report ORIENTATION

REPLACE Expr WITH ;

 MLINE(Expr,ATLINE("ORIENTATION",Expr)), ;

 Tag WITH "", Tag2 WITH ""

USE

*!* 以下代码处理VFP中打开的所有项目中的FRX文件

PROCEDURE setfrx

LOCAL cRptFile, i, p

FOR p = 1 TO application.Projects.Count

   FOR i =  1 TO application.Projects(p).Files.Count

      cRptFile = application.Projects(p).Files(i).NAME 

      IF UPPER(JUSTEXT(cRptFile)) = "FRX"

         WAIT WINDOW cRptFile && add NOWAIT if desired

         USE (cRptFile)

         LOCATE

**       REPLACE Expr WITH "", Tag WITH "", Tag2 WITH ""

**       Above line releases and following inserted

**       to preserve the Report ORIENTATION

         REPLACE Expr WITH ;

                 MLINE(Expr,ATLINE("ORIENTATION",Expr)), ;

                 Tag WITH "", Tag2 WITH ""

         USE

      ENDIF

   ENDFOR

ENDFOR

RETURN